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FOREWARD 


This  final  report  presents  the  results  of  research  undertaken 
at  Purdue  University  under  Air  Force  Contract  No.  F33615-78-C-2401 . 

The  effort  was  sponsored  by  the  Air  Force  Aero  Propulsion  Laboratory, 

Air  Force  Systems  Command,  Uright-Patterson  Air  Force  Base,  Ohio, 
under  Project  3066,  Task  306604  and  Work  Unit  30660454,  with  Mr.  Larry 
E.  Crawford,  AFAPLABC,  as  Project  Engineer. 

Two  earlier  publications  of  direct  relevance  to  the  project 
are  as  follows: 

1)  "Water  Ingestion  Into  Axial  Flow  Compressor",  Report  No. 
AFAPL-TR-76-77,  August,  1976;  and 

11)  "Analysis  of  Water  Ingestion  Effects  In  Axial  Flow 
Compressors",  Report  No.  AFAPL-TR-78-35,  June,  1978. 

The  research  reported  In  the  current  report  pertains  to  a  further 
development  of  a  prediction  code  for  the  performance  of  an  axial  com> 
pressor  with  water  Ingestion,  experimental  studies  on  a  small  engine- 
driven  axial  compressor  with  water  Ingestion  and  an  analysis  of  the 
results. 

The  final  report  consists  of  three  parts.  Part  I  entitled 
Analysis  and  Predictions,  Part  II  entitled  Computational  Program  and 
Part  III  entitled  Experimental  Results  and  Discussion.  Each  part  Is 
presented  In  a  separate  volume. 

Dr.  Bruce  A.  Reese,  currently  Chief  Scientist  at  the  Arnold 
Engineering  Development  Center,  Arnold  Air  Force  Base,  who  was  Professor 
and  Head,  School  of  Aeronautics  and  Astronautics,  Purdue  University, 
up  to  June  30,  1979,  participated  In  the  conduct  of  research  from 
January,  1978  until  June  30,  1979. 

The  Drive  Engine  and  the  Test  Compressor  provided  by  the  Air 
Force  for  the  experimental  studies  under  this  project  were  manufactured 
by  the  Detroit  Diesel  Allison  of  Indianapolis.  They  refurbished 
the  units  during  this  program  under  a  subcontract.  In  that  work  and  * 
In  a  variety  of  ways  the  DOA  and  several  of  their  personnel  have  been 
most  helpful  and  have  given  their  time  and  advice  generously  to  the 
Investigators. 
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SUMMARY 


The  PURDU-WICSTK  program  developed  for  predicting  the  performance 
of  an  axial  flow  compressor  operating  with  mixtures  of  gases  and  water 
droplets  has  been  described  in  detail.  The  utilization  of  the  program 
has  been  illustrated  with  a  test  case. 
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CHAPTER  I 


INTRODUCTION 

Water  Ingestion  into  an  aircraft  gas  turbine  arises  due  to  two 
circumstantial  reasons: 

(1)  wheel -generated  spray  clouds  entering  the  engine  Inlet  during 
take-off  and  landing  from  a  rough  runway  with  puddles  of 
water;  and 

(2)  rain,  occasionally  mixed  with  hall,  enterirg  the  engine  Inlet 
during  various  parts  of  a  flight  In  a  rain  storm. 

A  number  of  studies  (Refs.  1-6)  have  shown  that  adverse  effects  can  arise 
In  engine  performance  due  to  such  Ingestion  of  water  at  engine  Inlet, 
when  the  engine  has  been  designed  for  operation  with  air  flow.  In 
particular  the  engine  may  surge  and  may  suffer  blow-out  or  unsteadiness 
In  the  main  burner  or  the  after-burner.  Simple  corrective  steps,  such 
as  resetting  the  throttle,  have  generally  been  Ineffective  In  overcoming 
the  problems  of  loss  of  power  and  nonsteady  behaviour  of  the  engine.  In 
the  case  of  wheel -spray  Ingestion,  It  has  again  become  clear  that  basic 
changes  in  engine  Installation  may  be  necessary  In  relation  to  Inlets 
and  landing  wheels. 

In  the  current  Investigation,  there  Is  no  particular  emphasis  on 
the  precise  cause  for  the  presence  of  water  at  the  engine  Inlet.  Water 
Is  assumed  to  enter  the  compressor  along  with  air  In  droplet  form.  The 
droplet  (nominal)  diameters  may  be  In  the  range  of  20  to  1,300  microns. 
The  water  content  by  weight  may  be  In  the  range  of  2.5  to  15.0  per  cent. 
In  case  of  rain  through  which  an  aircraft  may  have  to  fly  (Refs.  7-9) 
the  droplet  sizes  may  be  of  the  order  of  100  to  1,500  microns,  although 
3,000  micron  size  droplets  have  also  been  reported  (Fig.  1.1).  On  the 
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other  hand,  15.0  per  cent  of  water  by  weight  is  probably  to  be  consider¬ 
ed  as  a  large  amount  of  ingestion  into  the  inlet,  corresponding  to 
flight  through  storm  conditions.  Under  such  extreme  conditions  there 
may  also  be  hail  and  snow  ingestion  into  the  engine.  However,  only 
water  ingestion  effects  are  examined  here. 

A  comprehensive  investigation  of  the  problem  of  water  ingestion 
into  engines  during  flight  should  take  into  account  details  of  the 
engine,  its  Installation  and  the  engine  and  aircraft  controls.  In  the 
current  investigation  attention  is  focussed  on  the  engine  and  its  control. 

Furthermore,  it  is  felt  that  the  response  of  the  compressor  in  the 
engine  to  water  ingestion  plays  a  determining  and  crucial  role  in  the 
response  of  the  engine  as  a  whole  in  view  of  two  considerations. 

(1)  The  compressor  receives  the  ingested  water  directly  and,  as  a 
rotating  machine,  is  most  strongly  affected  by  the  ingested 
water,  and  also  changes  the  "state  of  water'*  before  the 
fluid  enters  the  burner. 

(2)  The  compressor  performance  most  directly  affects  the  operating 
point  of  the  engine  under  steady  and  transient  state  conditions.* 

However,  the  compressor  performance  is  affected  by  the  presence  of  an 
inlet  through  the  changes  in  the  flow  field  introduced  by  it,  especially 
the  distortion  of  the  compressor  inlet  flow  field.  While  noting  such 
strong  interaction  between  the  inlet  and  the  compressor  flow  fields,  the 


*  It  may  be  pointed  out  that  the  operating  point  of  an  engine  is 
determined  by  the  matching  between  all  of  the  components  of  the  engine. 

Thus,  the  swallowing  capacity  of  the  turbine  and  nozzle,  for  example 
in  a  simple  jet  engine,  at  a  given  engine  speed  and  turbine  entry  temperature, 
determine  the  engine  operating  point  on  the  compressor  map.  However,  any 
changes  in  the  compressor  outlet  conditions  affect  the  engine  operating 
point  most  directly  with  a  given  turbine  and  nozzle.  In  particular,  during 
water  ingestion,  the  compressor  map  becomes  completely  changed,  causing 
at  least  a  change  in  the  surge  margin  for  a  possible  operating  point  and, 
in  extreme  cases,  a  total  mismatch  between  the  components.  Even  with  a 
turbine  and  nozzle  that  have  variable-area  capability,  it  may  become 
necessary  to  regulate  the  compressor  outlet  conditions  independently. 
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most  important  aspect  of  the  problem  of  water  ingestion  into  an  engine 
is  still  considered  to  be  that  pertaining  to  changes  in  the  compressor 
performance  itself. 

In  the  case  of  turbofan  engines,  the  air-water  mixture  upon  entering 
the  inlet  becomes  divided  between  the  fan  and  the  compressor.  In  parti¬ 
cular  cases,  the  compressor  stream  may  have  a  different  water  content 
and  droplet  size  distribution  from  that  of  the  compressor  stream  in  the 
absence  of  a  fan.  The  effects  of  water  Ingestion  are  important  both 
in  the  fan  and  the  core  engine  compressor,  although,  perhaps,  more  so 
in  the  latter.  When  there  Is  an  after-burner  in  the  fan  stream  or  when 
a  "mixing"  Nozzle  is  employed,  water  ingestion  into  the  fan  stream 
may,  however,  become  critically  Important. 

From  practical  operational  and  design  points  of  view,  the  effects 
of  water  ingestion  in  a  compressor  are  as  follows: 

(1)  changes  in  temperature  ratio,  pressure  ratio  and  efficiency 
of  the  compressor; 

(2)  changes  in  surge  line  and  operating  line,  and  therefore  the 
surge  margin  under  given  operating  conditions; 

(3)  blade  deformation  and  erosion  due  to  impact  of  droplets; 

(4)  blade  and  casing  deformation  due  to  differential  thermal 
expansion  under  transient  conditions; 

(5)  oscillation  of  pressure  ratio  and  flow;  and 

(6)  changes  in  dynamic  loading  including  aero-elastic  effects. 

For  given  entry  conditions,  the  response  of  the  compressor  Is 
determined  by  the  following: 

(1)  compressor  geometry; 

(2)  blade  loading; 

(3)  machine  rotational  speed;  and 

(4)  parameters  of  the  engine  of  which  the  compressor  Is  a  part. 

The  latter  pertain  to  engine  matching  and  should  Include  not  only  the 
steady  state  performance  parameters  but  also  the  mechanical,  aero¬ 
dynamic  and  thermal  Inertia  of  the  various  components  of  the  engine 
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under  transient  conditions.  It  should  be  noted  that  in  particular 
cases,  the  engine  components  may  include  a  fan,  an  after-burner  or  a 
second  nozzle  as  part  of  the  engine. 

In  establishing  the  response  of  a  compressor  to  water  ingestion, 
it  seems  therefore  useful  to  divide  the  total  problem  into  two  parts. 

(1)  The  compressor  as  a  machine  itself;  and 

(2)  The  compressor  as  a  part  of  the  engine  system. 

In  that  fashion,  one  can  separate  the  problems  associated  with  engine 
matching  (steady  or  transient)  from  those  dependent  upon  the  design 
of  the  compressor  itself.  Once  the  latter  have  been  understood  in 
detail,  the  engine  as  a  whole  may  be  studied  from  a  system  point  of 
view.  This  is  the  approach  adopted  in  the  current  investigation,  since 
it  is  also  especially  convenient  in  conducting  experimental  studies. 

A  number  of  parameters  pertaining  to  the  air-water  mixture  entering 
a  compressor  during  water  ingestion  are  the  following: 

(1)  amount  of  water  approaching  and  actually  entering  a  blade  row 
as  a  fraction  of  the  total  mass  flow  of  fluid  entering 
compressor; 

(2)  form  in  which  water  is  present,  film  and  droplets; 

(3)  temperature  and  pressure  of  air,  temperature  of  water  and 
temperature  of  machine; 

(4)  vapor  content; 

(5)  turbulence;  and 

(6)  distortion,  radial  and  circumferential. 

Water  vapor  is  always  present  in  air-water  mixtures  ingested  into 
an  engine.  The  water  vapor  content  changes  in  the  compressor  because  of 
changes  in  pressure  and  temperature  and  because  of  transfer  processes 
between  the  two  phases.  In  particular,  in  a  multi-stage  compressor  of 
large  pressure  ratio,  there  is  a  possibility  of  some  of  the  water 
reaching  local  saturation  temperature  and  undergoing  a  phase  change  due 
to  boiling  causing  addition  of  large  quantities  of  vapor  to  the  gas  phase. 
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It  Mill  be  observed  that  each  of  the  afore>nientioned  six  parameters 
changes  after  each  blade  roM  and  the  cumulative  changes  are  therefore 
especially  significant  in  a  multi-stage  machine.  Furthermore,  both 
time-dependent  changes  during  sudden  and  sporadic  ingestion,  as  well  as 
steady  state  changes,  as,  for  example,  may  arise  in  a  laboratory  experi¬ 
ment,  need  consideration.  Thus,  a  detailed  study  of  this  problem  should 
result  in  the  determination  and  verification  of  methods  for  establishing 
(a)  the  changes  in  the  performance  of  a  compressor  with  water  ingestion 
and  (b)  the  changes  in  the  state  of  fluid  between  the  inlet  and  the 
outlet  of  the  compressor.  Such  a  study  requires  Investigations  both 
on  a  single  row  of  blades  (stationary  and  rotating)  as  well  as  on  a 
unit  with  several  rows  of  blades,  under  steady,  transient,  and  distorted 
flow  conditions.  The  latter  is  a  means  of  establishing  the  response  of 
a  blade  row  to  the  flow  generated  by  a  preceding  row.  Furthermore,  in 
order  to  examine  the  occurrence  and  effects  of  phase  change  in  a  blade  row, 
the  entry  conditions  to  the  blade  row  have  to  be  selected  such  that  they 
are  suitable  for  such  phase  change.  In  a  multi-stage  compressor  of 
large  pressure  ratio,  there  is,  of  course,  a  considerable  change  in 
air  temperature  at  design  conditions. 

However,  at  this  stage  there  are  still  considerable  problems  in  con¬ 
ducting  detailed  measurements  of  two-phase  flows  in  rotating  machinery. 

It  has  therefore  been  felt  in  this  investigation  that  one  should  aim  at 
establishing  overall  performance  changes  and  fluid  flow  changes  in  a  com¬ 
pressor  for  given  entry  conditions  of  state  of  the  two-phase  fluid.  Once 
such  overall  changes  are  established  and  related  to  verifiable  models  for 
performance  prediction.  It  Is  felt  one  can  proceed  to  more  detailed 
measurements  and  modeling. 

For  a  given  compressor,  the  variables  of  Interest  during  water 
Ingestion  are  the  following: 

(1)  speed  of  the  machine; 

(2)  throttle  setting; 

(3)  stagnation  pressure 

(4)  temperature  of  air  and  Mter; 
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(5)  amount  of  water  as  a  fraction  of  total  mixture  flow; 

(6)  droplet  size  and  number  density  distribution,  and 

(7)  vapor  content. 

The  variables  (3)  to  (7)  have  a  spanwise  and  circumferential  distribution 
at  compressor  inlet,  which  may  or  may  not  be  uniform. 

The  overall  performance  parameters  of  a  compressor  with  two-phase 
flow  are  the  following: 

(1)  pressure  ratio  temperature  ratio  and  efficiency; 

(2)  changes  in  total  water  content  and  droplet  size  across 
the  compressor;  and 

(3)  changes  in  vapor  content  across  the  compressor. 

Each  of  these  varies  along  the  span  of  a  compressor  blade.  Both  the 
measurements  and  prediction  of  these  is  beset  with  considerable 
difficulties  at  this  time.  In  particular  the  determination  of  water 
and  vapor  content  and  of  droplet  size  distribution  requires  further 
advances  in  instrumentation,  data  acquisition  and  data  processing. 

On  establishing  and  demonstrating  predictive  methods  for  the 
estimation  of  such  overall  performance  parameters  for  a  compressor,  an 
analysis  can  be  carried  out  for  an  engine  operating  with  water  ingestion. 
Under  steady  conditions,  the  equilibrium  running  of  a  simple  engine 
depends  upon  the  following  parameters: 

(1)  engine  speed; 

(2)  mass  flow; 

(3)  compressor  performance  with  air-water  mixture; 

(4)  ratio  of  turbine  entry  temperature  to  inlet  temperature; 

(5)  turbine  operational  point  (choked  or  unchoked);  and 

(6)  thrust  nozzle  geometry. 

Regarding  the  latter,  a  fixed  geometry  thrust  nozzle  with  a  constant 
area  turbine  restricts  the  number  of  variables  for  equilibrium  running 
of  a  simple  engine  to  a  single  parameter,  namely  engine  speed  or  mass 
flow.  In  a  variable  geometry  engine  which  permits  changes  in  area  of 
the  turbine  and  the  thrust  nozzle,  one  can  select,  at  least  in  principle, 
three  variables  independently  for  equilibrium  running;  engine  speed, 
mass  flow  and  turbine  entry  temperature. 
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An  analysis  of  steady  state  equilibriutn  running  of  an  engine  with 
water  ingestion  can  be  epipected  to  reveal  the  following: 

(1)  whether  equilibrium  running  is  feasible  under  a  given  set 
of  operating  conditions, 

(2)  changes  in  surge  margine,  and 

(3)  effect  of  fuel  scheduling  and  bleed  of  working  fluid. 

The  latter,  along  with  other  aspects  of  engine  operation,  is  dependent 
upon  the  type  of  engine  control  incorporated  in  the  system. 

Even  when  attention  is  focussed  on  the  performance  of  a  compressor 
by  itself,  several  aspects  of  the  performance  may  come  to  light  only 
when  it  is  operated  as  a  part  of  an  engine.  However,  if  engine  matching 
and  its  effect  on  compressor  performance  are  not  included,  one  can  test 
a  compressor  as  a  separate  unit  by  driving  it,  for  example,  with  an 
aerodynamical ly-independent  drive  engine.  This  has  been  the  basis  for 
experimental  studies  in  the  current  investigation. 

1.1  Objectives  and  Scope  of  the  Investigation 

The  principal  objectives  of  the  present  investigation  are  as 
follows: 

(1)  Establishment  and  demonstration  of  a  predictive  method  for 
the  calculation  of  the  performance  of  an  isolated  compressor 
driven  by  an  external  drive  unit  and  operating  with  air-water 
mixture  flow;  and 

(2)  Obtaining  and  correlating  experimental  data  on  a  multistage 
compressor  with  air-water  mixture  flow. 

In  both  of  the  above,  the  vapor  content  of  the  mixture  is  taken  into 
account,  both  initial  humidity  and  changes  in  vapor  content  due  to  phase 
change  of  water  droplets. 

The  other  objectives  of  the  present  investigation  are  as  follows: 

(1)  Determination  of  the  manner  in  which  engine  performance 

becomes  affected  by  water  droplet  ingestion  into  the  engine 
compressors;  and 
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(2)  Providing  a  review  of  instrumentation  suitable  in  compressor. 

1.1.1  Analytical -Predictive  Investigations 

The  analytical -predictive  investigations  are  divided  into  two 
parts;  (1)  investigation  on  the  performance  of  a  compressor  with  water 
ingestion,  and  (2)  analysis  of  a  simple  gas  turbine  engine  with  water 
ingestion. 

Part  I:  Performance  of  Compressor  with  Water  Ingestion 

The  analytical -predictive  investigations  on  performance  of  compressor 
with  water  ingestion  are  divided  into  three  parts: 

(1)  Setting  up  the  general  aero- thermodynamic  equations  for 
compressor  with  air-water  mixture  flow  and  deduction  of  a 
one-dimensional  model. 

(2)  Establishing  one-dimensional  models  for  the  estimation  of  per¬ 
formance  of  a  compressor  in  four  limiting  cases  as  follows: 

(i)  Ingestion  of  mixtures  of  gases  directly  into  a  compressor 
at  inlet,  without  water  droplets. 

(ii)  Ingestion  of  small  droplets  that  can  be  assunspvj  lo 
follow  gas  motion  and  hence  absorb  angular  momentum. 

(iii)  Ingestion  of  large  droplets  that  can  be  assumed  to 
move  with  equal  probability  in  all  directions  and 
that  cause  a  loss  of  compressor  performance  due  to 
drag  forces  acting  on  them;  and 

(iv)  Injection  of  water  with  sudden  phase  change  into 
steam  at  an  appropriate  stage  in  the  compressor. 

(3)  Adapting  and  exercising  a  three-dimensional  streamline  computer 
code,  the  UD-0300  computer  code  (Ref. 10),  for  the  case  of 
direct  ingestion  of  mixtures  of  gases  into  a  compressor. 

Part  II:  Analysis  of  Gas  Turbine  Engine  with  Water  Ingestion 

The  objectives  of  Part  II  are  as  follows: 
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(1)  Establishing  a  model  for  steady  state  engine  matching  with 
water  ingestion;  and 

(2)  Establishing  a  model  for  calculation  of  flight  performance 
with  water  ingestion. 

1.1.2.  Experimental  Investigation 

The  experimental  investigations  have  been  conducted  on  a  specially 
built  Test  Compressor.  The  experimental  investigations  may  be  divided 
into  the  following  three  parts: 

(1)  Tests  with  air  as  the  working  fluid; 

(2)  Tests  with  air-methane  mixture  as  the  working  fluid;  and 

(3)  Tests  with  air-water  droplet  mixture  as  the  working  fluid. 

The  Air  Force  System  Command  has  provided  the  Test  Compressor  and 
a  T-63  Drive  Engine  for  the  experimental  investigations.  The  predictive 
methods  developed  for  estimating  compressor  performance  with  two  phase 
flow  have  also  been  employed  to  calculate  the  performance  of  the  Test 
Compressor. 

Details  regarding  the  Test  Compressor  and  Drive  Engine  are  provided 
in  Appendix  1  to  this  Report. 

The  Test  Compressor,  it  will  be  observed,  has  several  limitations: 

(1)  the  annulus  and  the  blade  heights  are  small  and  only  overall 
performance  parameters  at  one  or  at  most  two  radial  locations 
at  the  exit  plane  can  be  measured. 

(2)  the  overall  pressure  and  temperature  ratios,  even  at  design 
point,  are  too  small  to  cause  evaporation  of  more  than  2.5 
per  cent  of  water  (by  weight)  although  the  inlet  temperature 
is  raised  to  as  high  a  value  as  185®F  (85°C). 

(3)  the  compressor  assembly  permits  little  flexibility  in  locating 
instrumentation,  especially  at  the  compressor  exit. 

Since  the  Test  Compressor  casing  has  a  plastic  coating  that  does  not 
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withstand  high  temperatures,  the  Test  Compressor  has  been  tested  at  low 
Inlet  temperatures  In  the  range  of  70°F  to  100°F  (about  20°C  to  40°C). 
Such  Inlet  temperatures  do  not  cause  water  evaporation  within  the  Test 
Compressor.  The  test  program  has  therefore  been  conducted  In  two  parts; 

(1)  With  a  mixture  of  gases  to  simulate  air-steam  mixture  flow 
corresponding  to  (a)  high  humidity  in  the  air  and  (b)  operation 
of  different  stages  with  air-steam  mixture  following  complete 
evaporation  of  water,  and 

(2)  With  air-water  droplet  mixture  flow. 

In  examining  the  effects  of  presence  of  water  vapor  on  a  compressor 
performance.  It  Is  clear  that  another  gas,  such  as  methane,  can  be  sub¬ 
stituted  for  water  vapor  so  long  as  the  desired  similarity  laws  with 
respect  to  Reynolds  and  Mach  numbers,  are  satisfied.  A  comparison  of 
properties  for  steam  and  methane  is  presented  in  Table  1.1.  In  view 
of  the  similar  properties,  experimental  studies  have  been  undertaken  In 
this  Investigation  utill2ing  air-methane  mixtures. 

The  tests  with  air-water  droplet  mixtures  have  been  conducted  utili¬ 
zing  the  following  variables:  mixture  temperature,  mixture  composition 
and  droplet  size. 

1.1.3  Measurements  and  Predictions 

The  results  of  the  experimental  investigation  have  been  compared 
with  prediction  from  models  from  the  point  of  view  of  examining  selected 
assumptions  introduced  in  the  models.  It  is  clear  that  in  view  of 
limitations  on  the  feasibility  of  measurements  and  the  nature  of  assump¬ 
tions  introduced  in  modeling,  comparison  of  analytical  predictions  with 
experimental  results  is  restricted  to  certain  overall  performance  para¬ 
meters,  in  particular,  the  effects  of  mechanical -aero- thermodynamic 
interactions  are  established  indirectly  from  overall  compressor  perfor¬ 
mance  parameters  and  changes  in  water  and  vapor  content. 


TABLE  1.1 


COMPARISON  OF  PROPERTIES  FOR  STEAM  AND  METHANE 


Steam 

Methane 

Chemical 

Formula 

HgO 

CH4 

Molecular  Weight 

18.016 

16.043 

Specific 

Heat  at  Constant  Pressure 
(Btu/lbm-°F) 

0.445** 

0.531* 

(kJ/kg-°C) 

1.863** 

2.223* 

Ratio  of 

Specific  Heats* 

1.329** 

1.304* 

Enthalpy 

Increase 

(Btu/lbm) 

62.70'^ 

69.96'^ 

(kJ/kg) 

145.84'^ 

162.73‘*' 

*pressure  =  1  atm;  temperature  =  78®F(26°C) 

**pressure  *  1  atm;  temperature  =  212®F  (100°C) 

^  pressure  ratio,  Po2^^01  *  ^01  *  (20®C) 
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1.1.4  Measurement  Techniques 


A  brief  review  of  instrumentation  suitable  for  use  in  axial  flow 
compressors  and  cascades  operating  with  two  phase  fluid  flow  has  been 
undertaken. 

Two  important  overall  performance  parameters  in  compressors  are  the 
stagnation  pressure  ratio  and  the  stagnation  temperature  ratio.  A  probe 
for  the  measurement  of  stagnation  pressure  in  two  phase  flow  has  been 
developed.  Its  possible  use  in  a  compressor  flow  field  has  been 
examined.  The  development  of  a  similar  probe  for  the  measurement  of 
stagnation  temperatures  has  been  considered. 

1.1.5  Engine  Performance 

The  engines  considered  are  those  that  have  been  designed  for  air 
flow  through  the  inlet.  Engines  in  which  there  may  be  injection  of 
water  at  gas  flow  part  locations  beyond  the  compressor  or  in  other 
stream  such  as  fan  ducts  or  after-burners  are  not  under  consideration. 
Specifically  water  ingestion  effects  have  been  examined  in  the  case  of 
simple  turbo-jet  and  turbo-fan  engines  that  have  originally  been  designed 
for  air  flow  operation  only.  Thus  (a)  the  adverse  flow  effects  due  to 
water  ingestion  and  (b)  possible  methods  of  mitigating  such  effects  are 
of  interest. 

The  response  of  an  engine  to  water  ingestion  depends  upon  the 
following: 

(a)  component  geometrical  constraints; 

(b)  component  performance  characteristics;  and 

(c)  nature  of  control  incorporated  into  the  engine. 

The  performance  characteristics  that  are  of  major  interest  are  the 
following: 

(a)  Changes  in  component  performance  characteristics  due  to  water 
injection,  in  particular  the  compressor; 

(b)  Changes  in  operating  characteristics  of  engine  under  conditions 
of  equilibrium  running; 
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(c)  Changes  In  surge  margin;  and 

(d)  Limiting  conditions  of  operation. 


The  foregoing  have  been  analyzed  In  order  to  establish  general 
performance  trends  without  reference  to  specific  engine  configurations. 

It  may  be  noted  that,  because  of  the  aero- thermo-mechanical  pro¬ 
cesses  arising  on  account  of  water  Ingestion,  one  may  also  expect, 
at  least  In  extreme  cases,  aero-elastic  processes  becoming  significant. 
However,  the  manner  In  which  flutter,  for  example  may  be  altered  during 
two  phase  flow  In  compressors  Is  not  Included  for  study  In  the  current 
Investigation. 

1.2  Effects  of  Water  Ingestion 

The  two  critical  factors  during  water  Ingestion  may  be  said  to  be 
the  following:  (a)  the  aero-thermo-mechanical  processes  associated  with 
two  phase  flow  and  (b)  the  centrifugal  action  on  droplets  In  the  comp¬ 
ressor.  The  first  of  these  Includes  droplet  disintegration  and  evapora¬ 
tion  processes.  The  latter  gives  rise  to  a  change  In  gas  phase  mass 
flow  as  well  as  reduction  In  gas  phase  temperature.  The  centrifugal 
action  Introduces  a  radial  distortion  In  the  flow  and  fluid  properties, 
and  the  distortion  changes  in  every  stage  of  a  multistage  compressor. 

In  particular,  the  spanwise  distribution  of  the  composition  and  proper¬ 
ties  of  the  fluid.  In  terms  of  air,  water  vapor  and  water  droplets 
(both  content  and  size  distribution),  undergoes  changes  continuously 
along  the  compressor  flow  path.  The  effects  (a)  and  (b)  should  be 
examined  In  a  compressor  In  relation  to  the  following: 

(I)  Formation  of  a  water  film  In  the  tip  region,  that  may  flow 
Into  the  diffuser; 

(II)  Possibility  of  choking  hub  sections  and  stalling  tip 
sections  with  redistributed  gas  and  liquid  phase  mass 
flow;  and 

(III)  Nonuniform  distribution  of  water  vapor  In  the  radial 
direction. 

The  foregoing  will  In  turn  affect  engine  performance  depending 
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upon  engine-matching  and  the  type  of  control  in  the  engine. 

In  order  to  reduce  the  effects  of  water  ingestion,  one  can 
consider  the  following  in  order  of  increasing  complexity. 

(i)  Bleeding  of  gas  or  liquid  phase  flow  at  appropriate  locations 
in  the  compressor; 

(ii)  Resetting  stator  blades; 

(iii)  Modifying  engine  control;  and 

(iv)  Introduction  of  variable  geometry  nozzle  and  also  turbine. 

The  results  of  some  preliminary  studies  on  bleeding  and  also  gas  injec¬ 
tion  have  been  reported  in  Ref.  11. 


1.2.1.  Relation  to  Other  Two-Phase  Flow  Problems  in  Turbo-Machinery 


The  current  investigation  deals  with  air-water  droplet  mixture 
ingestion  into  engines.  On  the  other  hand  there  has  also  been  consid¬ 
erable  interest  in  the  problem  of  dust  particle  ingestion  into  engines 
(Refs.  12-13).  In  the  latter  case  the  principal  interest  is  in  erosion 
of  blades  and  nozzles,  although  there  is  some  loss  in  aerodynamic  per¬ 
formance. 


It  is  generally  considered  that  the  solid  particulates  may  agglom¬ 
erate  but  not  disintegrate  during  dust  ingestion.  Furthermore  the  heat 
and  mass  transfer  processes  between  the  two  phases  are  considered 
negligible. 

Solid  particulates  are  also  of  interest  in  certain  rocket  motor 
nozzle  and  plume  flows  (Refs.  14-16).  In  this  case,  in  addition  to 
erosion  and  particulate  drag  effects  it  is  generally  necessary  to 
take  into  account  heat  and  mass  transfer  processes,  as  well  as  conden¬ 
sation,  solidification  and  other  phase  change  processes.  However,  in 
this  case  there  is  not  strong  centrifugal  action,  although  there  may  be 
some  swirl  in  the  flow. 

The  low  pressure  stages  of  a  steam  turbine  (Refs.  17-19)  may 
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operate,  as  is  well  known,  with  steam-water  droplet  mixture,  the  drop¬ 
lets  arising  through  condensation.  However,  in  this  case,  while 
erosion,  loss  of  aerodynamic  performance,  and  consequences  of  strong 
centrifugal  action  are  important,  one  does  not  have  the  problems  of 
stalling  and  surging.  A  compressor  is  prone  to  surging  and  the  surge 
margin  with  respect  to  operating  line  when  it  is  part  of  an  engine  is  an 
extremely  important  parameter  in  engine  operation.  Hence  the  problem  of 
water  ingestion  into  an  engine  compressor  attains  a  leval  of  complexity  and 
significance  much  larger  than  the  two  phase  flow  problem  in  steam  tur¬ 
bines.  One  should  also  note  that  a  turbine  is  basically  a  nozzle,  while 
a  compressor  flow  (both  past  a  blade  and  through  a  blade  passage)  involves 
diffusion  and  complicated  blade  wake  interactions. 

The  current  investigation  does  not  take  into  account  geometrical 
changes  in  a  compressor  because  of,  say,  differential  contraction  of  ro¬ 
tor  and  casing  upon  water  ingestion.  In  general  one  can  expect  a 
change  in  clearance  between  rotor  and  stator.  If  a  compressor  has  been 
designed  with  optimum  clearance,  one  has  to  examine  both  aerodynamic 
and  mechanical  effects  caused  by  changes  in  clearance.  This  aspect  of 
water  ingestion  should  be  examined  in  relation  to  the  general  problems 
of  gas  flow  path  integrity  (Ref.  20). 

While  nonsteady  state  operation  is  not  considered  in  the  current 
investigation,  one  of  the  most  important  aspects  of  water  ingestion  into 
compressors  and  engines  is  transient  state  operation.  The  aero-thermo- 
mechanical  interactions  including  differential  contraction  of  casing 
and  rotor  under  transient  conditions  are  significant  in  evolving  various 
means  of  reducing  the  effects  of  water  ingestion. 

Finally,  it  is  recognized  that  the  entry  conditions  into  a  com¬ 
pressor  are  not  uniform  radially  and  circumferentially.  The  effects  of 
distortion  with  respect  to  pressure,  temperature,  velocity  and  turbulence 
continue  to  be  a  subject  of  concern  even  with  air  flowing  alone  (Ref.  21). 
During  water  ingestion,  one  can  expect,  in  general,  distortion  both  at 
entry  and  to  the  compressor  and  at  entry  to  each  stage.  The  sensitivity 
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of  an  engine  to  water  ingestion  should  include  consideration  of  inlet 
distortion  with  regard  to  water  content  and  water  droplet  size  distri¬ 
bution.  This  problem  has  been  entirely  neglected  in  the  current  investi 
gation.  It  may  be  pointed  out  that  even  under  uniform  inlet  flow 
conditions,  radial  distortion,  of  course,  arises  within  the  compressor 
due  to  centrifuging  and  heat  and  mass  transfer  processes. 

1.3  Implications  of  Models 

The  models  derived  in  the  current  investigation  may  be  divided  into 
four  groups: 

(i)  Model  for  the  calculation  of  stage  performance  with  air  flow. 

(ii)  Model  for  droplet  motion  across  a  blade  row. 

(iii)  Model  for  centrifuging  of  water,  and 

(iv)  Model  for  heat  and  mass  transfer  processes,  including  droplet 
disintegration. 

Experimental  investigations  have  been  conducted  in  order  to 
determine  overall  compressor  performance  changes  for  given  initial  and 
operating  conditions.  A  comparison  between  predictions  and  measurements 
therefore  yields  no  detailed  verification  of  the  models.  It  is  in  any 
case  doubtful  if  detailed  verification  of  all  aspects  of  the  models  can 
be  obtained  even  if  one  attempted  additional  measurements. 

The  performance  of  a  compressor  stage  with  two  phase  flow  depends 
upon  the  following  parameters: 

(i)  geometrical  design  of  blade  and  blade  passage, 

(ii)  spacing  between  blade  rows, 

(iii)  leading  and  trailing  edge  geometry, 

(iv)  casing  geometry, 

(v)  rotor  and  stator  blade  junctions, 

(vi)  incoming  flow  conditions,  and 

(vii)  operating  speed  and  throttle  setting 

The  foregoing  determine  (a)  the  stage  work  input,  (b)  the  states 
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of  gas  and  liquid  phases,  (c)  the  efficiency  of  compressor,  (d)  the 
redistribution  of  water  and  vapor  and  (e)  limiting  condition  of  steady 
state  operation  of  compressor.  When  the  compressor  is  part  of  an 
engine,  the  operating  characteristics  of  all  other  components  of  the 
engine  and  of  the  engine  as  a  whole  are  also  determined  by  the  compressor 
design  and  initial  conditions.  It  is  clear  that  while  the  models 
developed  can  be  employed  to  determine  the  performance  of  any  compressor 
under  a  set  of  reasonable  operating  conditions,  there  is  need  to  establish 
relations  that  can  be  employed  to  scale  the  performance  of  a  compressor 
with  respect  to  design,  initial  and  operating  conditions.  Such 
scaling  laws  have  to  be  based  on  characteristic  lengths,  characteristic 
times,  and  blade,  blade  passage  and  blade  row  characteristics  of  the 
compressor  and,  when  the  compressor  is  part  of  an  engine,  the  character¬ 
istics  of  other  components  such  as  diffuser,  burner,  turbine  and  nozzle. 
Under  certain  assumptions  an  attempt  has  been  made  to  establish  scaling 
laws  for  both  a  compressor  and  a  simple  jet  engine. 

1 .4  Organization  of  Report 

The  final  report  is  being  issued  in  three  parts: 

Part  I:  Analysis  and  Predictions 

Part  II:  Computational  Programs;  and 

Part  III:  Experimental  Results  and  Discussion 

This  report  constitutes  Part  II  of  the  Final  Report.  Chapter  I 
is  the  introduction.  Chapter  II  is  devoted  to  a  discussion  of  overall 
program  structure,  and  Chapter  III  presents  a  detailed  description 
of  the  subroutines  and  external  functions.  The  description  of  input 
data  is  given  in  Chapter  IV  while  a  description  of  the  output  is 
presented  in  Chapter  V.  Finally,  a  test  case  is  discussed  in  Chapter  VI. 
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CHAPTER  II 


OVERALL  PROGRAI-1  DESCRIPTION 

The  numerical -computational  work  undertaken  in  the  current  investi¬ 
gation  may  be  divided  into  two  parts  as  follows. 

(1)  Modification  of  UD-0300  computer  program  for  use  with  mixtures  of 
gases;  and 

(2)  Development  and  use  of  PURDU-WICSTK  program  for  the  calculation 
of  performance  of  axial  compressors  operating  with  air-water 
droplet  mixture,  based  on  one-dimensional  flow  analysis. 

The  modification  of  UD-0300  program  for  use  with  mixtures  of  gases 
is  described  in  detail  in  Ref.  22.  Typical  performance  results  for  the 
Test  Compressor  employed  in  this  investigation,  based  on  the  UD-0300  pro¬ 
gram,  are  also  presented  in  Ref.  22. 

The  PURDU-WICSTK  program  is  described  in  the  following. 

2. 1  Description  of  PURDU-WICSTK  Program 

The  one-dimensional  flow  equations  for  two  phase  flow  in  axial  com¬ 
pressors  have  been  derived  in  detail  and  presented  in  Ref.  22.  Those 
equations  are  suitable  for  the  calculation  of  performance  of  any  chosen 
section  along  the  span  of  an  axial  compressor  blade  row.  The  PURDU- 
WICSTK  is  based  on  those  equations.  For  given  initial  conditions  at  the 
entry  to  a  stage,  the  outlet  conditons  can  be  calculated  using  those 
equations. 

The  PURDU-WICSTK  deals  with  a  fluid  that  may  consist  of  (a)  a  mix¬ 
ture  of  three  different  gases  and  (b)  a  mixture  of  two  types  of  water 
droplets,  distinguished  by  size.  The  mixture  of  gases  may  consist  of  air, 
water  vapor  or  steam,  and  methane.  The  water  droplets  may  be  "small"  and 


"large"  diameter  droplets.  Small  droplets  are  defined  as  those  that 
follow  the  gas  flow  path  and  hence,  absorb  work  input  into  the  compressor 
along  with  the  gaseous  phase.  Large  droplets  are  assumed  to  move  largely 
independently  of  the  gas  phase,  with  equal  probability  of  motion  in  all 
directions  and  without  absorbing  work  input  but  introducing  drag  losses. 

In  the  general  two-phase  mixture  that  is  considered  as  the  working  fluid 
in  the  compressor,  the  proportion  of  the  five  constituents  (namely,  three 
gases  and  two  types  of  droplets)  may  be  chosen  as  '^esired  in  the  initial 
conditions  assumed  for  a  calculation.  Thus,  to  consider  humid  air  carrying 
large  droplets,  the  content  of  methane  and  of  small  droplets  are  set  equal 
to  zero  while  water  vapor  content  is  related  to  humidity. 

The  performance  of  a  stage  of  a  compressor  is  based  in  the  PURDU- 
WICSTK  Code  on  five  physical  models  as  follows. 

(1)  Model  for  the  calculation  of  stage  performance  with  respect  to 
the  gaseous  phase  and  water  droplets. 

(2)  Model  for  droplet  motion  across  a  blade  row  from  a  chosen 
upstream  location  to  a  designated  downstream  location. 

(3)  Model  for  centrifuging  cf  water  droplets. 

(4)  Model  for  heat  and  mass  transfer  processes  between  the  two  phases; 
and 

(5)  Model  for  droplet  break-up  and  equilibration  with  respect  to  size. 

The  foregoing  five  models  have  been  described  in  detail  in  Ref. 22. 
However,  a  further  description  is  included  in  Appendix  2  of  this  report 
regarding  the  model  for  the  calculation  of  stage  performance  with  respect 
to  gaseous  phase  and  water  droplets. 

The  general  procedure  for  calculation  is  the  same  as  described  in 
Ref.  22.  The  performance  of  a  stage  is  calculated  for  given  initial  and 
operating  conditions  with  respect  to  the  gaseous  phase  and  the  water 
droplets.  Regarding  small  droplets,  any  fraction  of  their  total  number 
may  be  taken  into  account  depending  upon  assumptions  relating  to  droplet 
impingement  and  rebound  processes.  Details  are  provided  in  Ref.  22.  Then, 
at  the  exit  of  a  blade  row,  the  three  major  processes,  namely 
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(1))  centrifugal  action  on  droplets,  (2)  heat  and  mass  transfer  processes 
between  the  two  phases  and  (3)  droplet  size  adjustment,  are  taken  into 
account.  When  the  stage  performance  parameters  are  corrected  for  the 
afore-mentioned  three  processes  then  one  obtains  the  outlet  conditions 
from  a  stage. 

The  outlet  conditions  from  a  stage  are  modified,  to  account  for 
geometry  of  compressor,  in  order  to  obtain  the  initial  conditions  for 
the  next  stage,  where  such  exists. 

Calculations  are  repeated  for  subsequent  stages  based  on  the  well- 
known  concept  of  stage-stacking. 

The  Code  can  be  used  to  predict  the  design  point  performance  as  well 
as  off-design  performance  of  a  multi-stage  compressor.  Regarding  off- 
design  performance  calculation,  further  details  are  provided  in  Appendix  2 
of  this  report. 

The  Code  is  also  suitable  for  the  calculation  of  compressor  performance 
with  (a)  bleeding  of  working  fluid  at  different  stages  in  the  compressor 
and  (b)  resetting  stator  blades.  It  may  be  recalled  that  two  of  the 
reconmended  methods  for  mitigating  the  effects  of  water  ingestion  in 
compressors  consist  in  (a)  bleeding  of  working  fluid  and  (b)  resetting 
of  stator  blades. 

The  program  is  written  for  calculation  of  performance  both  in  British 
and  metric  units. 


2.2  Main  Program 

The  program  consists  of  a  main  program,  twenty  seven  subroutines  and 
thirteen  external  functions. 

The  main  computer  code  routine  is  entitled  MAIN.  It  calls  all  of 
the  major  subroutines  in  the  code. 

MAIN  first  reads  all  of  the  input  data  and  prints  them  out.  Then 
MAIN  calls  the  subroutine  WICSPO  to  calculate  the  design  point  performance. 


At  the  compressor  inlet  the  overall  mixture  mass  flow  rate  is  deter¬ 
mined  from  the  inputed  initial  overall  flow  coefficient  and  selected 
compressor  operating  speed.  In  order  to  calculate  the  stage  performance, 
it  is  necessary  to  establish  the  stage  axial  velocity  and  stage  flow 
coefficient  at  the  entry  to  the  stage.  The  axial  velocity  and  therefore  the 
stage  flow  coefficient  are  determined  by  the  composition  of  the  mixture. 

The  influence  of  mixture  composition  arises  through  (a)  the  density  of 
the  mixture  and  (b)  the  proportion  of  large  droplets  in  the  mixture,  the 
large  droplets,  it  may  be  recalled,  having  random  motion  with  respect  to 
the  gas  phase  and  the  small  droplets.  Details  regarding  stage  flow 
coefficient  are  provided  in  Ref.  22  and  Appendix  2  of  this  report. 

2.2.1  Work  Done  in  Stage 

The  stage  performance  calculation  may  be  carried  out  in  one  of 
three  ways  by  setting  the  input  parameter  IPERFM  equal  to  1,2,  or  3: 

(1)  WICSPA  is  called  to  utilize  inputed  stage  characteristics; 

(2)  WICSPB  is  called  to  utilize  the  analytical/correlation  method(Appendix  2) 
for  small  droplets;  and  (3)  WICSPC  is  called  to  utilize  method  described 

in  Appendix  2  for  large  (or  general)  droplets.  The  program  is  written 
such  that  if  more  than  20  per  cent  pf  droplets  belong  to  the  class  of  large 
droplets,  WICSPC  is  always  used. 

The  foregoing  stage  performance  calculation  refers  only  to  the 
determination  of  work  done  by  the  stage  on  the  fluid  that  is  assumed  to 
absorb  work  input  into  the  stage.  The  state  of  the  fluid  at  the  exit  of 
the  stage  is  then  obtained  by  accounting  for  (1)  the  centrifugal  action 
on  droplets  leading  to  a  redistribution  of  liquid  phase,  (2)  heat  and 
mass  transfer  processes  leading  to  a  redetermination  of  mass  flow  and 
temperature  of  both  gas  phase  and  liquid  phase. 


2.2.2  Droplet  Impingement  Processes 

In  order  to  perform  calculations  pertaining  to  impingement  of  droplets 
on  rotor  blades  and  rebound  of  droplets,  MAIN  calls  subroutine  WICIRS  and 
WICIRL  for  small  and  large  droplets,  respectively.  The  small  and  large 
droplet  trajectories  are  different  by  assumption  and  their  impingement  on 
blades,  therefore,  has  to  be  calculated  in  different  ways.  For  stator 
blade,  the  subroutines  WICISS  and  WICISL  are  called  for  small  and  large 
droplets,  respectively. 


The  rebound  of  droplets  is  treated  parametrically  as  a  fraction 
of  the  droplets  that  impact  a  blade.  The  unrebound  droplets  are  assumed 
to  move  over  the  blade  surface  and  to  be  reingested  into  the  blade  wake  at 
the  blade  trailing  edge.  Details  regarding  these  processes  may  be  found  in 
Ref.  22. 


2.2.3  Droplet  Drag 

The  stage  performance  calculation  described  earlier  yields  a  value  of 
gas  phase  pressure  at  the  stage  exit.  This  to  be  corrected  for  droplet 
drag  in  the  case  of  large  droplets.  The  droplet  drag  due  to  large 
droplets  is  accounted  for  by  calling  the  subroutine  WICDRG.  The  pressure 
loss  due  to  drag  depends  upon  (a)  the  chosen  drag  coefficient,  and 
(b)  the  number  of  droplets  taken  into  consideration.  The  latter  in 
turn  depends  upon  the  droplet  impingement  and  rebound  processes.  Further 
details  may  be  found  in  Ref.  22. 

2.2.4  Droplet  Size  Adjustment 

At  the  trailing  edge  of  a  blade,  it  is  necessary  to  establish 

(a)  the  size  of  droplets  that  re-entrained  into  a  blade  surface  and 

(b)  the  nominal  size  of  all  of  the  droplets.  In  both  cases,  the  droplet 
size  is  assumed  to  be  determined  by  the  critical  value  of  Weber  number. 

The  subroutine  WICWAK  yields  the  size  of  droplets  that  are  re-entrained. 
Regarding  the  nominal  size  of  all  of  the  droplets  in  the  blade  wake  region, 
the  WICSIZ  is  called  to  determine  it.  It  may  be  observed  that  the 
droplets  attain  an  equilibrium  size  in  the  blade  wake  region  only  after 
traversing  a  distance  since  the  droplets  undergo  an  accelerating  motion 
starting  from  the  blade  trailing  edge  till  they  attain  momentum 
equilibrium  with  respect  to  the  gas  phase. 

2.2.5  Centrifugal  Action 

The  spanwise  redistribution  of  droplets  due  to  centrifugal  action  is 
based  on  the  theory  developed  in  Ref. 22.  The  centrifugal  action  arises 
due  to  (a)  the  whirl  component  of  velocity  of  droplets  and  (b)  the  rota- 
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tional  motion  of  blades  in  a  rotor.  In  the  case  of  small  droplets, 
centrifugal  action  thus  applies  to  (i)  droplets  in  blade  passages  with 
respect  to  ithe  whirl  component  of  velocity  and  (ii)  droplets  on  blade 
surfaces  with  respect  to  the  blade  rotational  velocity.  In  the  case  of 
large  droplets,  on  the  other  hand,  centrifugal  action  arises  only  for 
droplets  that  impact  the  blade  and  are  not  rebound;  in  other  words,  for 
droplets  that  impinge  on  a  blade  and  remain  on  it. 

The  centrifugal  action  arises  both  in  a  stator  and  a  rotor  for  small 
droplets,  while  it  arises  only  in  a  rotor  for  large  droplets.  This  is 
again  based  on  the  earlier  postulated  difference  between  small  and  large 
droplet  motion. 

The  centrifugal  action  is  determined  utilizing  the  subroutine  WICCEN. 

It  may  be  pointed  out  that  the  spanwise  redistribution  of  droplets 
due  to  centrifugal  action  is  a  time-dependent  process.  In  other  words, 
the  total  effect  of  centrifugal  force  is  proportional  to  the  length  of 
time  over  which  the  force  acts.  It  is  assumed  in  the  model  adopted  here 
that  the  time  over  which  centrifugal  force  action  arises  on  a  droplet 
during  its  passage  through  a  blade  row  is  the  mean  length  of  time  re¬ 
quired  for  transit  through  the  blade  row.  Thus,  the  particles  at  the 
trailing  edge  of  a  blade  row,  as  they  come  out  of  a  blade  row,  are  assumed 
to  be  centrifuged  at  that  location  over  a  period  of  time  equal  to  the  time 
of  passage  through  the  blade  row  under  consideration.  A  similar  assump¬ 
tion  applies  if  a  complete  stage  is  being  considered.  Further  detalis  are 
available  in  Ref.  22. 

2.2.6.  Heat  and  Mass  Transfer  processes 

The  heat  and  mass  transfer  processes  between  the  two  phases  are  also 
time-dependent  processes.  The  mean  duration  of  time  for  heat  and  mass 
transfer  processes  across  a  blade  row  or  a  stage  is  again  calculated  on 
the  basis  of  mean  transit  time  through  a  blade  row  or  a  stage.  The  heat 
transfer  is  from  the  gas  phase  to  the  liquid  phase.  The  mass  transfer 
arises  due  to  two  reasons  as  follows. 
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(1)  The  change  of  pressure  and  temperature  1n  a  stage  and  the 
resulting  change  in  thermodynamic  equilibrium  conditions  and, 

(ii)  the  evaporation  of  water  when  conditions  are  appropriate. 

The  details  of  models  for  heat  and  mass  transfer  calculations  are  presented 
in  Ref.  22. 

The  heat  and  mass  transfer  calculations  are  carried  out  by  calling 
the  subroutines  WICHET  and  WICMAS,  respectively,  at  the  exit  of  a  stage. 

The  stage  exit  conditions  are  thus  fully  established  and  are  printed 

out. 


2.2.7.  Multi-Stage  Compressor  Performance 

When  there  is  a  stage  following  the  stage  for  which  exit  conditions 
have  been  determined,  the  inlet  conditions  to  the  following  stage  are 
determined  taking  into  account  changes  in  the  geometry  of  the  interstage 
spacing.  Utilizing  those  conditions  as  the  input  conditions,  the  per¬ 
formance  of  the  following  stage  is  established  in  terms  of  final  exit 
conditions  from  that  stage.  The  procedure  is  the  same  as  that  described 
for  the  first  stage. 

This  procedure  is  continued  for  all  of  the  stages  in  the  case  of  a 
multi-stage  compressor  and  the  exit  conditions  from  the  last  stage  are 
printed  out  as  the  output  conditions  of  the  compressor  for  given  initial 
conditions  into  the  first  stage  of  the  compressor  at  the  chosen  operating 
speed. 

2.3  Off-Design  Performance 

In  order  to  calculate  the  performance  of  a  stage  at  an  off-design 
point,  with  respect  to  speed  and/or  mass  flow,  one  utilizes  the  subroutine 
WICSPA,  WICSPB,  or  WICSPC  by  setting  the  input  parameter  IPERFM  =  1,  2,  or 
3.  The  utilization  of  the  three  subroutines  is  the  same  as  at  the  design 
point. 
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It  may  be  pointed  out  that  the  profile  loss  calculation  procedure 
set  out  In  the  subroutine  UIC6SL  Is  considered  especially  suitable  for 
the  case  of  the  Test  Compressor  employed  In  the  current  Investigation. 

In  another  case,  appropriate  modifications  or  even  a  replacement  of  this 
procedure  may  become  necessary. 

2.3.1.  Corrections  at  Stage  Exit 

In  Section  2.2,  the  methods  of  applying  corrections  to  the  basic 
stage  performance  with  respect  to  the  following  have  been  discussed. 

(1)  droplet  Impingement  processes, 

(2)  droplet  drag  loss, 

(3)  droplet  size  adjustment, 

(4)  centrifugal  action,  and 

(5)  heat  and  mass  transfer  process. 

It  may  be  recalled  that  the  corrections  are  related  to  (a)  the  assumed 
distinctions  between  small  and  large  droplets,  and  (b)  the  parametrl- 
zatlon  of  droplet  Impingement,  rebound  and  reingestion. 

In  performing  off-design  performance  calculations,  the  procedure  Is 
the  same  as  described  In  Section  2.2.  The  distinctions  between  small 
and  large  droplets  remain  the  same.  One  can,  of  course.  Introduce  de¬ 
sired  values  for  droplet  Impingement,  rebound  and  reingestion  at  each 
calculation  point. 

2.4  Bleeding  and  Injection 

At  the  exit  of  any  stage  of  a  compressor,  the  output  yields  the 
composition  of  the  mixture  of  gases  and  liquid  droplets.  In  estab¬ 
lishing  Inlet  conditions  Into  the  following  stage.  In  addition  vo  taking 
Into  account  changes  due  to  the  geometry  of  Inter-stage  spacing,  one 
can  take  Into  account  bleeding  or  Injection  of  apy  component  of  the 
mixture  by  adjusting  the  mass  flow  and  the  mixture  ratios. 
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2.5  Stator  Blade  Setting 

The  program  includes  a  provision  for  blade  setting  as  feature  of 
off -design  performance  calculations.  Further  details  are  provided  in 
Appendix  2. 

2.6  Calculation  of  Stage  Losses 

The  calculation  of  stage  losses  is  fully  described  in  Appendix  2. 

A  summary  is  provided  here. 

The  stage  loss  calculation  consists  of  the  following  five  subroutines: 

(1)  Subroutine  WICGSL 

single-phase  (gas)  flow  profile  loss  calculated  using  the 
analytical /correlation  method; 

(2)  Subroutine  UICSDL 

loss  for  small  droplets  on  account  of  the  change  in  momentum 
thickness  of  boundary  layer  due  to  the  presence  of  such  drop¬ 
lets; 

(3)  Subroutine  WICSTL 

loss  due  to  Stokesian  drag  of  droplets  in  the  free  stream  of 
blade  passage; 

(4)  Subroutine  WICFML 

loss  due  to  film  formed  on  blades  when  large  droplets  are 
present  either  by  themselves  or  along  with  small  droplets;  and 

(5)  Subroutine  WICRSL 

loss  due  to  the  mixture  boundary  layer  formed  over  the  rough 
film  surface  referred  to  in  (4). 

The  calculation  schemes  for  various  types  of  working  fluids  are  as 
follows. 

(a)  Ip  dealing  with  the  flow  of  gas  phase  along,  two  options  exist 
as  follows. 

(1)  Using  inputed  stage  characteristics  by  utilizing  subroutine 
WICSPA;  or 

(2)  Using  analytical/correlation  method  by  utilizing  the  rele¬ 
vant  part  of  subroutine  WICSPB  and  WICGSL. 
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(b)  In  dealing  with  the  flow  of  a  mixture  of  gas  and  small  droplets, 
again  two  options  exist  as  follows. 

(1)  Using  inputed  stage  characteristics  through  the  use  of 
WICSPA  and  correct  for  the  pressure  of  droplets  by 
using  the  subroutine  WICSDL;  or 

(2)  Using  analytical/computational  method  according  to 
subroutines  WICSPB,  WICGSL,  and  WICSDL. 

(c)  Finally,  in  dealing  with  the  flow  of  a  mixture  of  gas  and  large 
or  large  and  small  droplets,  one  proceeds  by  using  the  subroutines 
WICSPC,  WICGSL,  WICSTL,  WICFML,  and  WICRSL. 


Overall  Program  Structure 


The  overall  program  structure  is  presented  in  Fig.  2.1  and  also 
described  below  step  by  step. 


Step  1:  Read  input  data. 

Step  2:  Printout  inputed  data. 

Step  3:  Calculate  the  design  point  performance  by  calling  WICSPD. 

Step  4:  Read  initial  flow  coefficient. 

Step  5:  Calculate  mass  flow  rate  of  gas  phase  and  liquid  phase 

from  the  inputed  initial  flow  coefficient.  The  subroutine 
WICPRP  and  WICMAS  are  called. 

Step  6:  Calculate  stage  performance  in  one  of  the  following  five 
cases: 

(i)  If  there  is  no  liquid  phase,  and  the  inputed  stage 
characteristic  curves  are  to  be  used,  WICSPA  is  called. 

(ii)  If  there  is  no  liquid  phase,  and  analytical/correlation 
method  is  to  be  used,  WICSPB  is  called. 

(iii)  If  more  than  80  per  cent  of  droplets  belongs  to  “swall" 
droplet,  and  the  inputed  stage  characteristic  curves 
are  to  be  used,  WICSPA  is  called. 

(iv)  If  more  than  80  per  cent  of  droplets  belongs  to  "small" 
droplet  and  the  analytical/correlation  method  is  to  be 
used,  WICSPB  is  called. 
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(v)  If  more  than  20  per  cent  of  droplet  belongs  to  "large" 
droplet,  WICSPC  is  called. 

Step  7:  Calculation  of  droplet  impingement  on  rotor  blade: 

For  small  droplets,  WICIRS  is  called. 

For  large  droplets,  WICIRL  is  called. 

Step  8:  Droplet  size  adjustment  at  rotor  outlet:  WICWAK  and 
UICSIZ  are  called. 

Step  9:  Calculation  of  centrifugal  action  and  spanwise  redistribution 
of  droplets: 

For  small  droplet, WICCEN  and  WICDMS  are  called. 

For  large  droplet,  WICCEN  and  WICOML  are  called. 

Step  10:  Calculation  of  droplet  impingement  on  stator  blade: 

For  small  droplet,  WICISS  is  called. 

For  large  droplet,  WICISL  is  called. 

Step  11:  Droplet  size  adjustment  at  stator  outlet:  WICWAK  AND 
WICSIZ  are  called. 

Step  12:  Calculation  of  heat  transfer: 

WICHET  is  called. 

Step  13:  Calculation  of  mass  transfer: 

WICMAS  is  called. 

Step  14:  Printout  stage  performance. 

Step  15:  Repeat  steps  (6)  'v  (14)  until  the  complete  stage  performance 
is  obtained. 

Step  16:  Calculate  the  overall  performance  and  print  them  out. 

Step  17:  Repeat  steps  (4)  -v  (16)  for  a  new  value  of  initial  flow 
coefficient. 


CHAPTER  III 


SUBROUTINES  AND  EXTERNAL  FUNCTIONS 

There  are  27  subroutines  and  13  external  functions  in  this  program. 

The  following  is  the  list  of  subroutines  and  external  functions.  Only 

brief  descriptions  of  these  subprograms  are  given  here.  A  more  detailed 

description  of  each  subprogram  is  presented  in  Appendix  3. 

Subroutine  WICSPA:  calculation  of  stage  performance  based  on  the 
imputed  stage  characteristic  curves. 

Subroutine  WICSPB:  calculation  of  stage  performance  based  on  the 
analytical/correlation  method  for  small  droplet. 

Subroutine  WICSPC:  calculation  of  stage  performance  based  on  the 
analytical/correlation  method  for  large  droplet. 

Subroutine  WICSPD:  calculation  of  design  point  performance. 

Subroutine  WICSCC:  calculation  of  the  equivalent  pressure  ratio, 

equivalent  pressure  ratio,  equivalent  temperature  rise  ratio,  and 
stage  adiabatic  efficiency  for  a  particular  stage  based  on  the 
imputed  stage  characteristic  curves. 

Subroutine  HICGSL;  calculation  of  single-phase  (gas)  flow  loss. 

Subroutine  WICSDL:  calculation  of  loss  for  small  droplets  on  account 
of  the  change  in  momentum  thickness  of  boundary  layer  due  to  the 
presence  of  such  droplets. 

Subroutine  WICSTL:  calculation  of  loss  due  to  Stokesian  drag  of  drop¬ 
lets  in  the  free  stream  of  blade  passage. 

Subroutine  WICFML;  calculation  of  loss  due  to  film  formed  on  blade 
surface  when  large  droplets  are  present  either  by  themselves  or 
along  with  small  droplets. 

Subroutine  WICRSL:  calculation  of  loss  due  to  the  rough  surface  when 
large  droplets  are  present  either  by  themselves  or  along  with 


Subroutine  WICVT:  calculation  of  components  of  velocity  triangle  and 
angles. 

Subroutine  WICCEN:  calculation  of  swanwise  replacement  of  droplets  due 
to  centrifugal  action. 

Subroutine  WICDMS:  calculation  of  amount  of  small  droplets  which  is 
centrifuged. 

Subroutine  WICDML:  calculation  of  amount  of  large  droplets  which  is 
centrifuged. 

Subroutine  WICDRG:  calculation  of  drag  force  on  droplet. 

Subroutine  WICMAC:  calculation  of  Mach  number. 

Function  WICASD:  calculation  of  acoustics  speed  in  two  phase  flow. 

Subroutine  WICBOA:  calculation  of  blade  outlet  angle. 

Subroutine  WICEDD:  calculation  of  equivalent  diffusion  at  design  point. 

Function  WICED:  calculation  of  equivalent  diffusion. 

Function  WICMTK:  calculation  of  dimensionless  momentum  thickness. 

Function  UICLOS:  calculation  of  total  pressure  loss  coefficient. 

Subroutine  WICIRS:  calculation  of  droplet  impingement  and  rebound  in 
rotor  for  small  droplet. 

Subroutine  WICIRL:  calculation  of  droplet  impingement  and  rebound  in 
rotor  for  large  droplet. 

Subroutine  WICISS;  calculation  of  droplet  impingement  and  rebound  in 
stator  for  small  droplet. 

Subroutine  WICISL;  calculation  of  droplet  impingement  and  rebound  in 
stator  for  large  droplet. 

Subroutine  WICWAK:  Calculation  of  water  reingestion  into  wake. 

Subroutine  WICHET;  calculation  of  heat  transfer  between  gaseous  phase 
and  droplets. 

Subroutine  WICMAS:  calculation  of  mass  transfer  between  gaseous  phase 
and  droplets. 

Function  WICMTR:  calculation  of  mass  transfer  rate. 

Function  WICPWB:  calculation  of  vapor  pressure. 

Function  WICNEW:  calculation  of  new  trial  value  in  the  iterative 
procedure. 

Function  WICTAN:  calculation  of  the  value  of  tangent  function. 

Function  WICBPT;  calculation  of  boiling  point. 
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Function  WICSH:  calculation  of  specific  humidity. 

Subroutine  WICSIZ:  calculation  of  nominal  droplet  size. 

Subroutine  WICPRP:  calculation  of  flow  properties  for  gaseous  phase. 

Function  MICCPA:  calculation  of  specific  heat  at  constant  pressure 
for  air. 

Function  WICCPH:  calculation  of  specific  heat  at  constant  pressure 
for  vapor. 

Function  WICCPC:  calculation  of  specific  heat  at  constant  pressure 
for  methane. 
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CHAPTER  IV 


INPUT  DATA 


A11  input  data  that  are  needed  to  use  PURDU-UICSTK  computer  code 
are  decribed  in  this  section.  The  input  data  are  presented  in  the 
same  sequence  as  they  are  used  in  the  program.  The  units  for  the 
input  data  can  be  selected  as  either  all  Metric  or  a11  English  by 
choosing  the  value  of  UNIT  as  shown  in  Table  4.1. 


The  following  is  a  list  of  the  input  data  as  they  are  read  in 
MAIN.  Figures  4.1  and  4.2  show  the  geometry  of  compressor  stage  and 
angles  associated  with  a  typical  rotor  blade  element. 


Card 

No. 

Input 

Data 

Comment 

Format 

1 

NS 

number  of  stage 

11 

2 

RRHUB(I) 

hub  radius  at  Ith  stage  rotor 
inlet.  I  =  1  ^  NS 

Unit:  inch  or  cm 

F5.3 

3 

RC(I) 

chord  length  of  Ith  stage  rotor 

I  =  1  -v  NS 

Unit:  inch  or  cm 

F  5.3 

4 

RBLADE(I) 

number  of  blade  for  Ith  stage 
rotor.  I  =  1  -v  NS 

F  5.2 

5 

STA6ER(I) 

stager  angle  for  Ith  stage  rotor 

I  =  1  -v  NS 

Unit:  degree 

F  5.2 

6 

SRHUB(I) 

hub  radius  at  Ith  stage  stator 
inlet. 

I  =  1  -v  NS,  I  =  NS+1  for  IGV 

Unit:  inch  or  cm 

F  5.3 

7 

SC(I) 

chord  length  of  Ith  stage  stator 

I-  1  -v  NS,  I*NS+1  for  IGV 

Unit:  inch  or  cm 

F  5.3 

Unit  of 
Input  data 


Unit  of 

Output  Variables 


English 

Metric 

English 

Metric 


English 

Metric 

Metric 

English 


Card 

No. 

Input 

Data 

Comment 

Format 

8 

SBLAOEd) 

number  of  blade  for  Ith  stage 
stator. 

I=l'vtlS,  I=NS+1  for  IGV 

F  5.2 

9 

SIGUMR(I) 

solidity  of  Ith  stage  rotor 

I  =  K  NS 

F  5.3 

10 

SIGUMS(I) 

solidity  of  Ith  stage  stator 
I=l'vJ<S,  I=NS+1  for  IGV 

F  5.3 

11 

FNF 

fraction  of  design  corrected 
rotor  speed  for  a  particular 
speed 

F  8.2 

"l2 

XOIN 

initial  water  content 
(mass  fraction)  of  small 
droplet 

F  5.3 

12 

ICENT 

index  for  centrifugal  calculation 
of  small  droplet 

ICENT  =  1  when  XDIN  =0.0 
otherwise  ICENT  =  2 

11 

12 

XDOIN 

initial  water  content 
(mass  fraction)  of  large 
droplet 

F  5.3 

12 

IICNET 

index  for  centrifugal  calculation 
of  large  droplet 

IICENT=1  when  XDDIN=0.0 
otherwise  I ICENT  =  2 

11 

~13 

TOG 

total  temperature  of  gas  phase 
at  compressor  inlet 

Unit:  Rankin  or  Kelvin 

F  7.2 

13 

TOW 

temperature  of  droplet  at 
compressor  inlet 

Unit:  Rankin  or  Kelvin 

F  7.2 

13 

PO 

total  pressure  at  compressor 
inlet 

Unit:  lbf/ft2  or  N/m  ^ 

F  7.2 

~14 

OIN 

initial  diameter  of  small  droplet 
Unit:  urn 

F  6.1 

14 

ODIN 

initial  diameter  of  large  droplet 
Unit:  um 

F  6.1 
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Card 

Input 

No. 

Data 

Comment 

Format 

15 

FND 

rotor  corrected  speed  at  design 
point 

Unit:  RPM 

F  7.1 

15 

TOID 

compressor  inlet  temperature 
at  design  point 

Unit:  Rankin  or  Kelvin 

F  7.2 

15 

POID 

compressor  inlet  pressure 
at  design  point  , 

Unit:  Ibf/ft^  or  N/m^ 

F  7.2 

16 

XCH4 

initial  methane  content 
(mass  fraction) 

F  5.3 

16 

RHUMIO 

initial  relative  humidity 

Unit:  per  cent 

F  10.5 

17 

FMUA 

molecular  weight  of  air 

F  7.3 

17 

FMWV 

molecular  weight  of  steam 

F  7.3 

17 

FMWC 

molecular  weight  of  methane 

F  7.3 

18 

PREB 

percent  of  water  droplet 
that  rebound  after  impingement 
on  blade  surface 

F  5.1 

18 

DLIMIT 

maximum  diameter  for  small 
droplet 

Unit:  ym 

F  7.1 

19 

STAGES(I) 

stager  angle  for  Ith  stage 
stator 

I=l'v^S,  I=NS+1  for  IGV 

Unit:  degree 

F  5.2 

20 

GAPR(I) 

gap  between  Ith  stage  rotor 
and  (I-l)th  stage  stator 

I  =  1  -v  NS 

Unit:  inch  or  cm 

F  7.5 

21 

GAPS(I) 

gap  between  rotor  blade 
and  stator  blade  for 

Ith  stage 

I  =  1  -v  NS 

Unit:  inch  or  cm 

F  7.5 
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Card  Input 

No.  Data  Comment 

22  RRTIP(I)  blade  tip  radius  at  Ith  stage 

rotor  inlet 
I  =  1  'v.NS 
Unit:  inch  or  cm 

23  SRTIP(I)  blade  tip  radius  at  Ith  stage  F  6.3 

stator  inlet 
I  =  1  'x.NS 
Unit:  inch  or  cm 


24  IPERFM  index  for  stage  performance  II 

calculation 

IPERFM=1:  subroutine  WICSPA  is  used 

IPERFM=2:  subroutine  WICSPA  is  used 

IPERFM=3:  subroutine  WICSPA  is  used 

lUNIT  index  for  unit  II 

IUNIT=1 : Input=Engl ish,0utput=Eng1 ish 
IUNIT=2:Input=Metric,  Output=Metric 
IUNIT=3:Input=English,0utput=Metric 
IUNIT=4:Input=Metric,  Output=English 

IRAD  index  for  radius  at  which  calculation  II 

is  carried  out 

IRAD  *  1:  performance  at  tip 
IRAD  =  2:  performance  at  mean 
IRAD  =  3:  performance  at  hub 

RT(I)  rotor  inlet  radius  at  which  tip  F  5.3 

performance  calculation  is 
carried  out 
I  =  1  -vJiS 
Unit:  inch  or  cm 

27  RM(I)  rotor  inlet  radius  at  which  F  5.3 

mean  line  performance  calculation 
is  carried  out 
I  =  1  -vJiS 
Unit:  inch  or  cm 

28  RH(I)  rotor  inlet  radius  at  which  hub  F  5.3 

performance  calculation  is  carried 
out 

I  =  1  -xiiS 
Unit:  inch  or  cm 

29  ST(I)  stator  inlet  radius  at  which  F  5.3 

tip  performance  calculation  is 
carried  out 
I  =  1  oNS 
Unit:  inch  or  cm 


24 


25 


26 


Format 
F  6.3 
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Card 

No. 

Input 

Data 

Comment 

Format 

30 

SM(I) 

Stator  Inlet  radius  at  which 
mean  line  performance  is 
carried  out 

1=1  -v-  NS 

Unit:  inch  or  cm 

F  5.3 

31 

SH(I) 

stator  inlet  radius  at  which 
hub  performance  calculation 
is  carried  out 

I  =  1  'X.  NS 

Unit:  inch  or  cm 

F  5.3 

32 

BLOCK(I) 

blockage  factor  for 

Ith  stage  rotor 

0<BL0CK(I)<  1 

F  5.3 

33 

BLOCKS(I) 

blockage  factor  for 

Ith  stage  stator 

0<BL0CKS(I)<1 

F  5.3 

34 

BETIMR(I) 

blade  metal  angle 
at  Ith  stage  rotor  inlet 

Unit:  degree 

F  5.2 

35 

BET2MR(I) 

blade  metal  angle 
at  Ith  stage  rotor  outlet 

Unit:  degree 

F  5.2 

36 

BETIMS(I) 

blade  metal  angle 
at  Ith  stage  stator  inlet 

Unit:  degree 

F  5.2 

3/ 

BET2MS(I) 

blade  metal  angle 

at  Ith  stage  stator  outlet 

Unit:  degree 

F  5.2 

38 

DMASS 

mass  flow  rate  at  design  point 
Unit:  lb|jj/s  or  kg/s 

F  10.6 

39 

PR12D(I) 

total  pressure  ratio 
for  the  Ith  stage  rotor 
at  design  point;  I=K  NS 

F  5.3 

40 

PR13D(I) 

total  pressure  ratio 

for  Ith  stage 

at  design  point;  I  =  K  NS 

F  5.3 

40 


Data 


Comment 


Format 


ETARD(I)  adiabatic  efficiency  for  F  5.3 

Ith  stage  rotor 

SAREA(I)  stream  tube  area  F  10.7 

Ith  stage  rotor  Inlet 
Unit:  ft^  or  m^ 

SAREAS(I)  stream  tube  area  for  F  10.7 

Ith  stage  stator  Inlet 
Unit:  ft^  or  m^ 

DELBIR(I)  change  of  blade  metal  angle  F  5.2 


for  Ith  stage  rotor  resetting 
1=  I'x-  NS 
Unit:  degree 


DELBIS(I)  change  of  blade  metal  angle  F  5.2 
for  Ith  stage  stator  resetting 
I^l-vJIS,  I=NS+1  for  IGV 


XGlBLD(l)  amount  of  bleed  or  Injection  F  5.3 
of  air  at  Ith  stage  outlet 
I  =  K  NS 

XGIBLD(I)  <  0  for  bleed 

XGIBLD(I)  =  0  for  no  bleed  or  injection 

XGIBLD(I)  >  0  for  Injection 


XG2BLD(I)  amount  of  bleed  or  injection  F  5.3 
of  steam  at  Ith  stage  outlet 
1=  1  -v  NS 

X62BLD(I)  <  0  for  bleed 

XG2BLD(I)  =  0  for  no  bleed  or  Injection 

XG2BLD(I)  >0  for  injection 


XG3BLD(I)  amount  of  bleed  or  injection  F  5.3 
of  methane  at  Ith  stage  outlet 
I  *  1  -v  NS 

X63BLD(I)<  0  for  bleed 

XG3BLD(I)  =0  for  no  bleed  or  Injection 

XG3BLD(I)>0  for  Injection 


Card 

No. 

Input 

Data 

Comment 

Format 
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XWBLD(I) 

amount  of  bleed  or  Injection 
of  small  droplet  at  Ith  stage  outlet 

I  =  1  n.  NS 

XWBLD(I)  <  0  for  bleed 

XUBLO(I)  =  0  for  no  bleed  or  injection 
XWBLD(I)  >  0  for  injection 

F  5.3 
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XUWBLD(I) 

amount  of  bleed  or  injection  of  large 
droplet  at  Ith  stage  outlet 

1  =  1  NS 

XUWBLO(I)  <0  for  bleed 

XWWBLO(I)  =0  for  no  bleed  or  injection 

XWWBLO(I)  >0  for  injection 

F  5.3 
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BET2SS(I) 

absolute  flow  angle  at  Ith  stage 
stator  outlet 

I  =  1  'V-  NS,  I«NS1  for  IGV 

F  5.2 
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FAI 

initial  flow  coefficient. 

The  user  can  input  FAI  as  many  as 
one  wants.  However,  one  card  must 
contain  only  one  FAI  and  the  last 
card  must  be  9.99999 

F  7.5 
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CHAPTER  V 


OUTPUT 

The  user  can  select  the  units  for  output  variables  by  choosing  the 
value  of  the  input  variable  lUNIT  as  shown  in  Table  4.1. 

There  are  two  kinds  of  output  in  this  program  code— regular  output 
and  diagnositic  output.  The  regular  output  consists  of  four  parts 
as  follows: 

(1)  output  of  the  inputed  data; 

(2)  output  of  design  point  performance; 

(3)  output  of  stage  performance;  and 

(4)  output  of  overall  performance. 

5.1  Output  of  Inputed  Data 

All  of  the  data  inputed  can  be  printed  out  at  the  beginning  of 
output. 

5.2  Output  of  Design  Point  Performance 

5.2.1  Compressor  Inlet  (Design  Point  Performance) 

At  the  compressor  inlet,  the  following  properties  can 
be  printed  out  for  the  design  point  performance: 

(1)  total  temperature  at  compressor  inlet:  (R)  or  (K) 

(2)  total  pressure  at  compressor  inlet:  (Ibf/ft^)  or  (N/m^) 

(3)  static  temperature  at  compressor  inlet:  (R)  or  (K) 

(4)  static  pressure  at  compressor  inlet: (Ibf/ft^)  or  (N/m^) 

(5)  static  density  at  compressor  inlet:  (lbm/ft3)  or  (kg/m3) 

(6)  acoustic  speed  at  compressor  inlet:  (ft/s)  or  (m/s) 

(7)  axial  velocity  at  compressor  inlet:  (ft/s)  or  (m/s) 

(8)  Mach  number  at  compressor  inlet 

(9)  stream  tube  area  at  compressor  inlet:  (ft^)  or  (ra^) 

(10)  flow  coefficient  at  compressor  inlet 
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5.2.2  Stage  Performance  (Design  Point  Performance) 

At  the  end  of  each  stage,  the  following  properties 
can  be  printed  out  for  the  design  point  performance: 

(1)  total  temperature:  (R)  or  (K) 

(2)  total  pressure:  (Ibf/ft^)  or  (N/m^) 

(3)  static  temperature:  (R)  or  (K) 

(4)  static  pressure:  (Ibf/ft^)  or  (N/m^) 

(5)  static  density:  (Ibm/ft^)  or  (kg/m^) 

(6)  axial  velocity:  (ft/s)  or  (m/s) 

(7)  absolute  velocity:  (ft/s)  or  (m/s) 

(8)  relative  velocity:  (ft/s)  or  (m/s) 

(9)  tangential  component  of  absolute  velocity:  (ft/s)  or  (m/s) 

(10)  tangential  component  of  relative  velocity:  (ft/s)  or  (m/s) 

(11)  rotor  wheel  speed:  (ft/s)  or  (m/s) 

(12)  absolute  Macn  number 

(13)  relative  Mach  number 

(14)  total  temperature  based  on  relative  Mach  number:  (R)  or  (K) 

(15)  total  pressure  based  on  relative  Mach  number:  (Ibf/ft^) 
or  (N/m2) 

(16)  absolute  flow  angle:  (degree) 

(17)  relative  flow  angle:  (degree) 

(18)  stream  tube  area:(ft2)  or  (m^) 

(19)  radius  at  which  caculation  is  carried  out  :  (ft)  or  (m) 

(20)  flow  coefficient 

(21)  stage  total  pressure  ratio 

(22)  stage  adiabatic  efficiency 

(23)  rotor  total  pressure  ratio 

(24)  rotor  adiabatic  efficiency 

(25)  stage  total  temperature  ratio 

5.2.3  Overall  Performance  (Design  Point  Performance) 

After  all  of  stage  performance  is  printed  out,  the 
following  properties  can  be  printed  out. 

(1)  compressor  inlet  total  temperature:  (R)  or  (K) 
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(2)  compressor  inlet  total  pressure:  (Ibf/ft^)  or  (N/m^) 

(3)  corrected  mass  flow  rate:  (Ibm/s)  or  (kg/s) 

(4)  overall  total  pressure  ratio 

(5)  overall  total  temperature  ratio 

(6)  overall  adiabatic  efficiency 

(7)  overall  temperature  rise:  (F)  or  (c) 

(8)  relative  flow  angle  at  rotor  inlet:  BETISR(I)  (degree) 

(9)  relative  flow  angle  at  rotor  outlet :BET2SR( I)  (degree) 

(10)  incidence  for  rotor:  AINCSR(I)  (degree) 

(11)  deviation  for  rotor:  ADEVSR  (degree) 

(12)  absolute  flow  angle  for  stator  inlet:  BETISS(I)  (degree) 

(13)  absolute  flow  angle  for  stator  outlet:  BET2SS(I)  (degree) 

(14)  incidence  for  stator  :  AINCSS(I)  (degree) 

(15)  deviation  for  stator:  ADEVSS(I)  (degree) 

(16)  stage  inlet  temperature:  TD(I)  (R)  or  (K) 

(17)  total  pressure  loss  coefficient  for  stator:  OMEGS(I) 

(18)  total  pressure  loss  coefficient  for  rotor  :  OMEGR(I) 

5.3  Output  of  Stage  Performance 

The  performance  of  a  stage  is  calculated  for  given  initial  and 
operating  conditions  with  respect  to  the  gaseous  phase  and  the  water 
droplets.  At  the  exit  of  a  blade  row,  the  four  major  processes  associated 
with  two  phase  flow,  namely  (a)  droplet  impingement  process;  (b)  centri¬ 
fugal  action  on  droplets;  (c)  heat  and  mass  transfer  processes  between 
the  two  phases;  and  (d)  droplet  size  adjustment;  are  taken  into  account. 
When  the  stage  performance  parameters  are  corrected  for  the  afore-mentioned 
four  processes,  then  one  obtains  the  outlet  conditions  from  a  stage.  The 
output  of  stage  performance  consist  of  two  parts.  First  the  following 
properties  can  be  printed  out  before  the  afore-mentioned  four  processes 
are  taken  into  account. 

(1)  stage  total  pressure  ratio 

(2)  stage  total  temperature  ratio 

(3)  stage  adiabatic  efficiency 

(4)  stage  flow  coefficient 

(5)  axial  velocity:  (ft/sec)  or  (m/sec) 

(6)  rotor  speed:  (ft/sec)  or  (m/sec) 
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(7)  total  pressure:  (Ibf/ft^)  or  (N/m^) 

(8)  static  pressure:  (Ibf/ft^)  or  (N/m^) 

(9)  total  temperature  of  gas  phase:  (R)  or  (K) 

(10)  static  temperature  of  gas  phase:  (R)  or  (K) 

(11)  static  density  of  gas  phase:  (Ibm/ft^)  or  (kg/m^) 

(12)  static  density  of  mixture:  (Ibm/ft^)  or  (kg/m^) 

(13)  axial  velocity:  (ft/s)  or  (m/s) 

(14)  absolute  velocity:  (ft/s)  or  (m/s) 

(15)  relative  velocity:  (ft/s)  or  (m/s) 

(16)  blade  wheel  speed:  (ft/s)  or  (m/s) 

(17)  tangential  component  of  absolute  velocity:  (ft/s)  or  (m/s) 

(18)  tangential  component  of  relative  velocity:  (ft/s)  or  (m/s) 

(19)  acoustic  speed:  (ft/sec)  or  (m/s) 

(20)  absolute  Mach  number 

(21)  relative  Mach  number 

(22)  flow  coefficient 

(23)  stream  tube  area  (ft^)  or  (nl^) 

(24)  absolute  flow  angle:  (degree) 

(25)  relative  flow  angle:  (degree) 

(26)  incidence:  (degree) 

(27)  deviation:  (degree) 

After  the  stage  parameters  are  corrected  for  the  afore-mentioned 
four  processes,  the  following  second  parts  of  output  of  stage  performance 
can  be  printed  out. 

(1)  stage  total  pressure  ratio 

(2)  stage  total  temperature  ratio 

(3)  stage  adiabatic  efficiency 

(4)  water  vapor  content:  XV 

(5)  water  content  of  small  droplet:  XW 

(6)  water  content  of  large  droplet:  XWW 

(7)  total  water  content:  XWT 

(8)  mass  fraction  of  dry  air:  XAIR 

(9)  mass  fraction  of  methane:  XMETAN 

(10)  mass  fraction  of  gaseous  phase:  XGAS 
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(11)  mass  flow  rate  of  small  droplet:  WMASS(lbin/s)  or  (Kg/S) 

(12)  mass  flow  rate  of  large  droplet:  WWMASS  (Ibm/s)  or  (Kg/S) 

(13)  total  mass  flow  rate  of  droplet:  WTMASS  (Ibm/s)  or  (Kg/S) 

(14)  mass  flow  rate  of  dry  air:  AMASS  (Ibm/s)  or  (Kg/S) 

(15)  mass  flow  rate  of  methane:  CHMASS  (Ibm/s)  or  (Kg/S) 

(16)  mass  flow  rate  of  water  vapor:  VMASS  (Ibm/s)  or  (Kg/S) 

(17)  mass  flow  rate  of  gaseous  phase:  GMASS  (Ibtn/s)  or  (kg/S) 

(18)  mass  flow  rate  of  mixture:  TMASS  (Ibm/s)  or  (Kg/S) 

(19)  specific  humidity:  WS 

(20)  density  of  air:  RHOA  (Ibm/ft^)  or  (Kg/m^) 

(21)  density  of  mixture:  RHOM  (Ibm/ft^)  or  (Kg/m^) 

(22)  density  of  gaseous  phase:  RHOG  (Ibm/ft^)  or  (Kg/m^) 

(23)  temperature  of  gaseous  phase:  TG  (R)  or  (K) 

(24)  temperature  of  small  droplet:  TW  (R)  or  (K) 

(25)  temperature  of  large  droplet:  TWW  (R)  or  (K) 

(26)  pressure:  P  (Ibf/ft^)  or  (N/m^) 

(27)  boiling  point:  TB  (R)  or  (K) 

(28)  dew  point:  TDEW  (R)or  (K) 

5.4  Output  of  Overall  Performance 

At  the  end  of  compressor,  the  overall  performance  can  be  printed  out. 
The  properties  to  be  printed  out  are  as  follows: 

(1)  initial  flow  coefficient 

(2)  corrected  speed  of  compressor  and  fraction  of  design  corrected 
speed 

(3)  initial  water  content  of  small  droplet 

(4)  initial  water  content  of  large  droplet 

(5)  initial  total  water  content 

(6)  initial  relative  humidity 

(7)  initial  methane  content 

(8)  compressor  inlet  total  temperature:  (R)  or  (K) 

(9)  compressor  inlet  total  pressure:  (Ibf/ft^)  or  (N/m^) 
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*(10)  corrected  mass  flow  rate  of  mixture:  (Ibm/s)  or  (Kg/S) 

*(11)  corrected  mass  flow  rate  of  gaseous  phase:  (Ibm/s)  or  (Kg/S) 

(12)  overall  total  pressure  ratio 

(13)  overall  total  temperature  ratio 

(14)  overall  adiabatic  efficiency 

(15)  overall  temperature  rise  of  gaseous  phase:  (F)  or  (c) 

5.5  Diagnostic  Printout 

At  the  inlet  of  each  stage,  the  flow  coefficient  is  calcualted.  If 
the  flow  coefficient  gives  the  value  of  equivalent  pressure  ratio  which 
is  less  than  1.0  or  the  value  of  stage  adiavatic  efficiency  which  is 
less  than  0.0,  the  following  message  will  appear.  "FAI  IS  TOO  BIG  OR  TOO 
SMALL  AT  STAGE=."  If  this  message  appears,  the  computation  for  the 
particular  initial  flow  coefficient  will  be  terminated  and  the  next 
initial  flow  coefficient  will  be  read. 

The  iterative  procedure  is  used  to  determine  the  Mach  number.  If  the 
desired  accuracy  can  not  be  obtained  after  50  times  of  iteration  ,  the 
following  message  will  appear.  “M  DOES  NOT  CONVERGE  AT  STAGE=."  If  this 
message  appears,  the  final  value  of  Mach  number  will  be  used  and 
computation  will  be  continued. 

When  the  axial  velocity  become  either  higher  than  local  acoustic  speed 
or  negative,  the  following  message  will  appear:  "VZ  IS  TOO  HIGH  OR  TOO  LOW." 
If  this  message  appears,  the  computation  for  the  particular  initial  flow 
coefficient  will  be  terminated  and  the  next  initial  flow  coefficient  will 
be  read. 


*  The  mass  flow  rate  corresponds  to  stream  tube  area  specified  in  input 
data.  The  mass  flow  rate  which  corresponds  to  compressor  total  flow 
area  is  also  printed  out  in  the  brackets. 
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CHAPTER  VI 


A  TEST  CASE 

The  application  of  the  PUROU-WICSTK  program  is  illustrated  with 
a  test  case  pertaining  to  the  Test  Compressor  described  in  Appendix  1. 

The  Test  Compressor  consists  of  the  six  axial  stages  of  the  ALLISON  T63- 
A-5  engine  compressor.  The  design  point  overall  pressure  ratio  (mass 
averaged)  is  2.9  with  3.0  Ibm/sec  of  mass  flow  rate,  and  the  design  rotor 
speed  is  51120  RPM. 

The  test  case  consists  of  the  following  predictions  for  the  Test 
Compressor. 

(i)  Part  1:  Operation  with  air  flow  at  a  selected  speed  and 
throttle  setting. 

(ii)  Part  11:  Operation  with  air-small  droplet  mixture  flow  at  a 
selected  speed  and  throttle  setting;  and 

(iii)  Part  III:  Operation  with  air-large  droplet  mixture  flow  at 
a  selected  speed  and  throttle  setting. 

The  test  case  has  been  reproduced  in  Appendix  5. 

6.1  Test  Case  Part  I 

The  Test  Case  Part  I  demonstrates  the  use  of  the  code  for 
predicting  the  performance  of  a  compressor  which  operates  with  air  flow 
(only)  at  a  selected  speed  and  throttle  setting.  The  performance  predic¬ 
tion  has  been  presented  at  the  mean  line  of  the  Test  Compressor. 

6.1.1  Input  Data 

The  input  data  for  Test  Case  Part  I  are  listed  below  as  they 
are  read  in  program  MAIN. 
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Card  2:  RRHUB(l)  =  0.770  inch 
RRHUB(2)  »  1.035  inch 
RRHUB(3)  =  1.232  inch 
RRHUB(4)  =  1.378  inch 
RRHUB(5)  =  1.489  inch 
RRHUB(6)  =  1.572  inch 

Card  3:  RC(1)  =  0.605  inch 

RC(2)  =  0.554  inch 

RC(3)  =  0.534  inch 

RC(4)  =  0.510  inch 

RC(5)  =  0.483  inch 

RC(6)  =  0.456  inch 

Card  4:  RBLAOE(l)  *  16.00 
RBLADE(2)  *  20.00 
RBLADE(3)  “  20.00 
RBLADE(4)  *  25.00 
RBLADE(5)  *  28.00 
RBLADE(6)  *  32.00 

Card  5;  STAGER(l)  =  34.25  degree 
STAGER(2)  =  29.96  degree 
STAGER(3)  *  27.37  degree 
STAGER(4)  =  28.30  degree 
STAGER(5)  *  29.17  degree 
STAGER(6)  »  29.75  degree 

Card  6:  SRHUB(l)  »  0.923  inch 
SRHUB(2)  *  1.145  inch 
SRHUB(3)  *  1.311  inch 
SRHUB(4)  *  1.445  inch 
SRHUB(5)  *  1.538  inch 
SRHUB(6)  =  1.580  inch 
SRHUB(7)  »  0.774  inch 
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Card  7:  SC(1)  =  0.442  inch 

SC(2)  =  0.412  inch 

SC(3)  =  0.412  inch 

SC(4)  =  0.412  inch 

SC(5)  =  0.412  inch 

SC(6)  =  0.412  inch 

SC(7)  =  1.100  inch 

Card  8:  SBLADE(l)  =  14.00 

SBLADE(2)  =  26.00 

SBLADEO)  =  28.00 

SBLADE(4)  =  32.00 

SBLADE(5)  =  36.00 

SBLADE(6)  =  30.00 

SBLADE(7)  =  7.00 

Card  9:  SIGUMR(l)  =  1.052 

SIGUMR(2)  =  1.120 

SIGUMR(3)  =  1.037 

SIGUMR(4)  =  1.182 

SIGUMR(5)  =  1.211 

SIGUMR(6)  =  1.283 

Card  10:  SIGUMS(l)  =  0.640 

SIGUMS(2)  =  1.061 

SIGUMS(3)  =  1.093 

SIGUMS(4)  =  1.199 

SIGUMS(5)  =  1.311 

SIGUMS(6)  =  1.087 

SIGUMS(7)  =  0.858 

Card  11:  FNF  =  1.00 
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Card  12:  XDIN 
KENT 
XODIN 
I  KENT 

Card  13;  TOG 
TOW 
PO 

Card  14:  OIN 
DOIN 

Card  15:  END 
TOID 
P01D 

Card  16:  XCH4 
RHUMIO 

Card  17:  FMWA 
FMWV 
FMWX 

Card  18:  PREB 
DLIMIT 

Card  19:  STAGES(l) 
STAGES(2) 
STAGES(3) 
STAGES(4) 
STAGES(5) 
STAGES(6) 
STAGES(7) 


=  0.000 

=  1 

=  0.000 

=  1 

=  518.70  R 
=  513.70  R 
=  2116.80  Ibyft^ 

=  20.0  ym 

=  600.0  ym 

=  51120.0  RPM 
=  518.70  R 
=  2116.80  Ib^/ft^ 

=  0.000 

=  0.00001  per  cent 

=  28.964 
=  18.016 
=  16.043 

=  50.00  per  cent 
=  100.0  ym 

=  23.67  degree 
=  25.62  degree 
=  26.94  degree 
=  28.41  degree 
»  29.82  degree 
=  38.99  degree 
«  10.99  degree 
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Card  20:  6APR(1)  » 

GAPR(2)  = 
GAPR(3)  = 
GAPR(4)  = 
GAPR(5)  = 
GAPR(6)  = 

Card  21:  6APS(1)  = 

GAPS(2)  = 
GAPS(3)  = 
GAPS(4)  - 
GAPS (5)  = 

GAPS(6)  = 

Card  22:  RRTIP(l)  = 
RRTIP(2)  = 
RRTIP(3)  = 
RRTIP(4)  = 
RRTIP(5)  = 
RRTIP(6)  » 

Card  23:  SRTIP(l)  = 
SRTIP(2)  = 
SRTIP(3)  = 
SRTIP(4)  = 
SRTIP(5)  = 
SRTIP(6)  * 

Card  24:  IPERFM 
lUNIT 

Card  25:  IRAQ 


0.125  inch 
0.125  inch 
0.125  inch 
0.125  inch 
0.125  inch 
0.125  inch 

0.125  inch 
0.125  inch 
0.125  inch 
0.125  inch 
0.125  inch 
0.125  inch 

2.16  inch 
2.16  inch 
2.16  inch 
2.16  inch 
2.16  inch 
2.16  inch 

2.16  inch 
2.16  inch 
2.16  inch 
2.16  inch 
2.16  inch 
2.16  inch 

2 

1 

2 
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Card  31:  SH(1)  =  2.147  inch 

SH(2)  =  2.138  inch 

SH(3)  =  2.127  inch 

SH(4)  *  2.123  inch 

SH(5)  =  2.118  inch 

SH{6)  *  2.100  inch 

Card  32:  BLOCK(l)  =  0.983 

BL0CK(2)  =  0.976 

BL0CK(3)  =  0.967 

BL0CK(4)  =  0.949 

BL0CK(5)  =  0.923 

BL0CK(6)  =  0.902 

Card  33:  BLOCKS(l)  =  0.978 

BL0CKS(2)  =  0.966 

BLOCKS (3)  =  0.945 

BL0CKS(4)  =  0.928 

BL0CKS(5)  «  0.908 

BL0CKS(6)  =  0.863 

Card  34:  BETlMR(l)  =  42.72  degree 

BET1MR(2)  =  42.74  degree 

BET1MR(3)  =41.62  degree 
BET1MR(4)  =  42.85  degree 

BET1MR(5)  =  44.00  degree 

BET1MR(6)  =  45.07  degree 

Card  35:  BET2MR(1)  =  25.79  degree 

BET2MR(2)  =  17.17  degree 

BET2MR(3)  =  13.12  degree 

BET2MR(4)  =  13.76  degree 

BET2MR(5)  =  14.33  degree 

BET2MR(6)  =  14.43  degree 
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Card  36:  BETlMS(l) 
BEnMS(2) 
BETIMSO) 
BET1MS(4) 
BET1MS(5) 
BET1MS(6) 
BET1MS(7) 

Card  37:  BET2MS(1) 
BET2MS(2) 
BET2MS(3) 
BET2MS(4) 
BET2MS(5) 
BET2MS(6) 
BET2MS(7) 

Card  38:  OMASS 

Card  39:  PR12D(1) 
PR12D(2) 
PR12D(3) 
PR12D(4) 
PR12D(5) 
PR120(6) 

Card  40:  PR13D(1) 
PR13D(2) 
PR13D(3) 
PR13D(4) 
PR13D(5) 
PR13D(6) 


=  35.15  degree 
=  40.11  degree 
=  43.36  degree 
=  45.00  degree 
=  46.31  degree 
=  48.71  degree 
=0.00  degree 

=  12.19  degree 
=  11.13  degree 
=  10.51  degree 
=  11.81  degree 
=  13.32  degree 
=  29.28  degree 
=  21.99  degree 

=  0.375538  Ibm/sec 

=  1.154 
=  1.165 
=  1.221 
=  1.237 
=  1.230 
=  1.215 

=  1.152 
=  1.159 
=  1.213 
=  1.228 
=  1.221 
=  1.208 
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Card  41 : 


Card  42: 


Card  43: 


Card  44: 


Card  45: 


ETARD(I) 

>  0.966 

ETARD(2) 

»  0.966 

ETAR0(3) 

=  0.968 

ETAR0(4) 

=  0.965 

ETARD(5) 

»  0.962 

ETARD(6) 

=  0.954 

SAREA(I) 

=  0.0103647  ft^ 

SAREA(2) 

»  0.0092977 

ft^ 

SAREA(3) 

=  0.0080300 

SAREA(4) 

=  0.0069214 

fr 

SAREA(5) 

=  0.0059094 

ft^ 

SAREA(6) 

*  0.0051110 

SAREAS(I) 

=  0.0098704 

ft2 

SAREAS(2) 

=  0.0084051 

ft^ 

SAREAS(3) 

=  0.0070775 

ft^ 

SAREAS(4) 

*  0.0060735 

ft^ 

SAREAS(5) 

*  0.0052626 

ft^ 

SAREAS(6) 

»  0.0046691 

ft^ 

SAREAS(7) 

»  0.0105669 

ft^ 

DELB1R(1) 

=  0.00 

DELB1R(2) 

*  0.00 

DELB1R(3) 

*  0.00 

DELB1R(4) 

«  0.00 

DELB1R(5) 

»  0.00 

0ELB1R(6) 

=  0.00 

DELBIS(I) 

»  0.00 

0ELB1S(2) 

»  0.00 

DELB1S(3) 

=  0.00 

DELB1S(4) 

»  0.00 

DELB1S(5) 

»  0.00 

DELB1S(6) 

»  0.00 
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Card  46:  XGlBLD(l)  = 
XG1BLD(2)  = 
XGIBLDO)  = 
XG1BLD(4)  = 
XG1BLD(5)  = 
XG1BLD(6)  = 

Card  47:  XG2BLD(1)= 
XG2BLD(2)  = 
XG2BLD(3)  = 
XG2BLD(4)  = 
XG2BLD(5)  = 
XG2BLD(6)  = 

Card  48:  XG3BLD(1)  * 
XG3BLD(2)  = 
XG3BLD(3)  = 
XG3BLD(4)  = 
XG3BLD(5)  = 
XG3BLD(6)  = 

Card  49:  XWBLD(I)  = 
XWBLD(2)  = 
XWBLD(3)  = 
XWBLD(4)  = 
XWBLD(5)  = 
XWBLD(6)  - 

Card  50:  XWWBLD(I)  = 
XWWBLD(2} 
XWWBL0(3)  = 
XWWBLD(4)  « 
XWWBL0(5)  = 
XWWBLD(6)  » 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 
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Card  51:  BET2SS(1) 
BET2SS(2) 
BET2SS(3) 
BET2SS(4) 
BET2SS(5) 
BET2SS(6) 
BET2SS(7) 


21.89  degree 
19.09  degree 
19.33  degree 
20.18  degree 
21.15  degree 
34.86  degree 
15.61  degree 


Card  52:  FAI  =  0.5000 


Card  53:  FAI  =  9.99999 


6.1.2  Output 

The  output  for  Test  Case  Part  I  is  presented  in  Appendix  5. 

The  details  of  the  output  obtained  are  described  in  Chapter  V. 

6.2  Test  Case  Part  II 

The  Test  Case  Part  II  demonstrates  the  use  of  the  code  for 
predicting  the  performance  of  a  compressor  which  operates  with  air-small 
droplet  mixture  flow  at  a  selected  speed  and  throttle  setting.  The  water 
content  of  small  droplet  has  been  specified  as  four  per  cent  by  weight. 
The  performance  prediction  has  been  presented  at  the  mean  line  of  the 
Test  Compressor. 

6.2.1  Input  Data 

The  input  data  for  Test  Case  Part  II  are  the  same  as  those 
for  Test  Case  Part  I  except  in  regard  to  the  following. 

Card  12:  XOIN  =  0.040 
KENT  =  2 
XDOIN  >  0.000 
I  KENT  =  1 
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6.2.2  Output 

The  output  for  Test  Case  Part  II  is  presentee  ,ii  Appendix  5. 
The  details  of  the  output  obtained  are  described  in  Chapter  V. 


6.3  Test  Case  Part  III 

The  Test  Case  Part  III  demonstrates  the  use  of  the  code  for 
predicting  the  performance  of  a  compressor  which  operates  with  air- 
large  droplet  mixture  flow  at  a  selected  speed  and  throttle  setting. 
The  water  content  of  large  droplet  has  been  specified  as  four  per  cent 
by  weight.  The  performance  prediction  has  been  presented  at  the  mean 
line  of  the  Test  Compressor. 

6.3.1  Input  Data 

The  input  data  for  Test  Case  Part  III  are  the  same  as  those 
for  Test  Case  Part  I  except  in  regard  to  the  following. 


Card  12: 


XDIN  = 

0.000 

KENT  = 

1 

XDOIM  » 

0.040 

I  KENT  = 

2 

6.3.2  Output 

The  output  for  Test  Case  Part  III  is  presented  in  Appendix  5. 
The  details  of  the  output  properties  are  described  in  Chapter  V. 
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or 
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WICDML 
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WICWAK 

and 

WICSIZ 

WICHET 

WICMAS 


Figure  2.1  Flow  Chart  of  of  Overall  Program  Structure 
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Figure  2 


.1  Flow  Chart  of  Overall  Program  Structure  (Continued) 

64 


w 


Ith  Stage 


Fig.  4.1  Geometry  of  Compressor  Stage 


I 
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Direction  of  Flow 


V 

z' 

A. 

A 

z' 


1®^  Stage 


2^  Stage 


N=4 


Fig.  5.1  Station  Number  in  Compressor  Stages 


APPENDIX  1 


DETAIL  OF  TEST  COMPRESSOR  AND  DRIVE  ENGINE 


1 .  Drive  Engine 

A  T63-A-5  engine  is  used  to  drive  the  Test  Compressor.  The 
specifications,  limits,  and  performance  ratings  for  the  Drive  Engine 
are  as  follows; 


Design  power  output:  250  shp 
Ram  power  rating:  275  shp 


Design  speeds: 

Gas  producer 
Power  turbine 
Power  output  shaft 


51120  rpm  (100%) 
35000  rpm  (100%) 
6000  rpm 


Fuel  Specification  :  MIL-J-5624E(JP-4) 


The  Drive  Engine  power  turbind  drives  the  Test  Compressor  through 
mechanical  gearing.  The  power  turbine  speed  has  been  increased  to  an 
output  of  9,643  rpm  at  100  per  cent  speed  from  the  normal  rating  of  6,000 
rpm.  The  Test  Compressor  is  operated  at  110  per  cent  (56,251.7  rpm) 
while  the  engine  operates  at  100  per  cent  or  51 j 120  rpm.  One  power 
turbine  tachometer  is  used  to  monitor  the  Test  Compressor  speed.  The 
ratio  of  the  tachometer  speed  to  the  Test  Compressor  speed  is  0.119676. 


2.  Test  Compressor 

The  Test  Compressor  consists  of  the  six  axial  stages  of  the 
ALLISON  T63-A-5  engine  compressor.  The  Test  Compressor  has  been  de¬ 
signed  and  built  such  that  various  stages  of  the  compressor  can  be 
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assembled  and  tested.  Thus  the  first  two,  the  intermediate  two  or  the 
last  two  stages  can  be  tested  if  desired,  as  well  as  the  unit  with  all 
of  the  six  stages.  Only  the  6-stage  unit  has  been  used  in  the  current 
tests. 

The  first  stage  of  the  Test  Compressor  is  preceded  by  an  inlet 
guide  vane  row  which  imparts  swirl  to  the  inlet  air.  The  relative  Mach 
number  of  the  incoming  air  at  the  rotor  inlet  is  thereby  reduced  as  far 
as  permissible  without  causing  inlet  blockage.  The  axial  component 
features  unshrouded  rotors,  cantilever  stators,  and  double  circular  arc 
blading  in  all  stages.  The  values  of  T-63  compressor  design  velocity 
diagram  are  presented  in  Table  A. 1.1.  Table  A. 1.3  and  A. 1.4  present  the 
hardware  geometry  and  aerodynamic  design  data  for  rotor  and  stator, 
respectively. 

Figure  A. 1.1.  to  Figure  A. 1.6  show  the  stage  performance  charact 
eristics  of  Test  Compressor  supplied  by  the  manufacturer.  In  each  of 
the  figures,  the  equivalent  pressure  ratio,  \()  ,  equivalent  temperature 
ratio,  T,  and  stage  adiabatic  efficiency,  n,  are  presented  in  terms  of 
flow  coefficient,  <|).  The  definitions  of  these  parameters  are  as  follows: 

(i)  flow  coefficient: 

^  z'  tip 


(ii)  equivalent  pressure  ratio:  \p 

U?. 


ip  = 


D  ”tip 


f  P  Jt-U/y 

'(fc)  -1 


+  1 


Y/(y-1) 


(iii)  equivalent  temperature  ratio:  t 
^tij 


*  /AT. 


Toi  D  ^tip 
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TABLE  A. 1.1 


Test  Compressor  Design  Velocity  Diagram  Values 


R 

2.161 

2.161 

2.161 

2.161 

2.161 

2.161 

U 

963.5 

963.5 

963.5 

963.5 

963.5 

963.5 

^zl 

508.4 

544.1 

547.0 

554.9 

554.1 

543.7 

^91 

236.5 

310.0 

365.1 

349.3 

338.8 

338.8 

“el 

727.0 

653.5 

598.4 

614.2 

624.7 

629.9 

^1 

25.0 

29.7 

33.7 

32.2 

31.6 

31.5 

54.9 

50.3 

47.6 

47.9 

48.5 

49.3 

"labs 

0.513 

0.56T 

0.578 

0.560 

0.538 

0.512 

”lre1 

0.812 

0.765 

0.713 

0.707 

0.692 

0.658 

507.0 

554.9 

551.0 

554.5 

548.9 

544.6 

''eZ 

405.2 

501.3 

598.8 

614.6 

625.1 

630.3 

^92 

558.3 

462.2 

364.7 

348.9 

338.4 

333.2 

“2 

38.6 

42.1 

47.4 

47.9 

48.7 

49.2 

^2 

47.8 

39.8 

33.6 

32.2 

31.7 

31.5 

'  .  ”2abs 

0.588 

0.665 

0.706 

0.698 

0.680 

0.660 

”2re1 

0.683 

0.643 

0.574 

0.552 

0.528 

0.506 

1 

Note: 

Symbols  for  Table  A. 

1 . 1  are 

jrovided  in 

Table  A. 

1.2. 

table  a. 1.2 

Symbols  for  Test  Compressor  Design  Velocity  Diagram  Values 


R  Radius,  inches 

U  Rotor  speed  at  R,  ft/sec. 

V^  Air  axial  velocity,  ft/sec. 

V-  Air  absolute  tangential  velocity,  ft/sec. 

Wg  Air  relative  tangential  velocity,  ft/sec. 

a  Air  absolute  flow  angle,  degrees 

0  Air  relative  flow  angle,  degrees 

M  Mach  number 

Subscript 

1  rotor  inlet 

2  rotor  outlet 

abs  absolute 

rel  relative 


stage 


2  3  4  5  6 


Radius 

R 

2.161 

2.161 

2.161 

2.161 

2.161 

2.161 

Camber  Angle 

e 

22.6 

15.9 

18.0 

19.7 

20.9 

22.0 

Stagger 

Y 

46.1 

42.3 

36.5 

36.1 

36.0 

36.3 

Incidence 

i 

0.0 

2.0 

2.0 

2.0 

2.0 

2.0 

Deviation 

5 

7.3 

5.4 

6.0 

6.0 

6.1 

6.2 

Chord 

C 

0.605 

0.554 

0.534 

0.510 

0.483 

0.456 

Sol idity 

a 

0.713 

0.815 

0.787 

0.941 

0.997 

1.075 

Max.  Thickness 

t 

0.036 

0.039 

0.037 

0.036 

0.034 

0.032 

Thickness-Chord  Ratio 

t/c 

0.060 

0.070 

0.070 

0.070 

0.070 

0.070 

No.  of  Blades 

n 

16 

20 

20 

25 

28 

32 

Note:  R,  c,  t  in  [inches]  and  e,  y.  5*  i  in  [degrees] 

TABLE  A. 1.4 

Test  Compressor  Design  Data  (Stator) 


Stage 

IGV 

1 

2 

3 

4 

5 

6 

Radius 

R 

2.161 

2.161 

2.161 

2.161 

2.161 

2.161 

2.161 

Camber  Angle 

e 

31.7 

22.4 

25.6 

26.2 

24.4 

24.7 

17.3 

Stagger 

Y 

-15.9 

31.3 

36.3 

36.6 

36.8 

37.4 

42.6 

Incidence 

i 

0.0 

o 

CNJ 

1 

-2.0 

-2.0 

-2.0 

-2.0 

-2.0 

Deviation 

6 

6.7 

9.6 

5.2 

8.0 

7.9 

7.5 

5.6 

Chord 

c 

1.395 

0.442 

0.412 

0.412 

0.412 

0.412 

0.412 

Solidity 

0 

0.719 

0.456 

0.789 

0.850 

0.972 

1.093 

0.910 

Max.  Thickness 

t 

0.170 

0.040 

0.025 

0.025 

0.025 

0.025 

0.025 

Thickness-Chord 

Ratio 

t/c 

0.122 

0.09 

0.06 

0.06 

0.06 

0.06 

0.06 

No.  of  Blades 

n 

7 

14 

26 

28 

32 

36 

30 

Note:  R,  c.  t  in  [inches]  and  6,  y,  6,  i  in  [degrees] 
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ifficient  <#> 

ics  of  Tes*  Compressor 


(iv)  stage  adiabatic  efficiency:  n 


where  ATo  is  stage  total  temperature  rise,  Po  total  pressure.  To  total 
temperature,  axial  velocity,  blade  tip  wheel  speed,  y  specific 
heat  ratio.  The  subscripts  1  and  2  mean  inlet  and  outlet,  respectively, 
and  0  design  value. 

Figure  A. 1.7  shows  overall  performance  characteristics  of  Test 
Compressor  supplied  by  the  manufacturer.  The  performance  parameters 
are  the  following: 

(1)  Corrected  mass  flow  rate  = 


where  m  = 
Toi  = 
Poi  = 
e 

6 


(2) 


mass  flow  rate 
compressor  inlet  pressure 
compressor  inlet  temperature 

Toi/T^g^ 

Poi/P^ef 

58.7°F(15.2°C) 

14.7  psi  (1.0132  X  lO^N/m*) 


Corrected  speed 


where  N  =  rotor  speed  (RPM) 

(3)  Overall  total  pressure  ratio  =  P02/P01 
where  Poi  *  compressor  inlet  total  pressure 

P02  =  .  compressor  outlet  total  pressure 

T  P 

(4)  Overall  adiabatic  efficiency  =  n  «  (pii-)  y  -  1 

where  Toi  =  compressor  inlet  total  temperature 

ATo  =  compressor  total  temperature  rise 
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Fig.  A.  1.7  Overall  Performance  of  Test  Compressor 


AO-All^  aso  PURDUE  UNIV  LAFAYETTE  IN  SCHOOL  OF  MECHANICAL  ENSINEERINS  F/S  21/5 

EFFECT  OF  HATER  ON  AXIAL  FLOH  COMPRESSORS.  PARt  X.  ANALYSIS  AND— ETC(U) 
JUN  81  T  TSUCHlYAt  S  N  MURTHY  F396l5»7a^-2A01 

AFHAL-TR-80-2090-PT-1  NL 


UNCLASSIFIED 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BURIAU  Of  STANDARDS  19h«  4 


P 02/p 01  *  overall  total  pressure  ratio 
y  =  ratio  of  specific  heats 


3.  Limitations 

The  Test  Compressor  is  driven,  through  a  mechanical  gear  train, 
by  the  power  turbine  of  the  Drive  Engine.  The  6-stage  Test  Compressor 
has  been  utilized  in  the  past  for  up  to  30  hours.  The  available  life¬ 
time  for  further  use  of  that  Test  Compressor  has  been  uncertain. 

The  Test  Compressor  has  a  plastic  coating  on  the  casing  that 
SLpports  the  stator  blade  rings.  The  mechanical  and  thermal  strength  of 
the  coating  has  been  uncertain  since  the  casing  was  built  over  ten 
years  ago  and  may  have  aged.  At  design  point,  the  Test  Compressor 
temperature  rise  is  about  192®F,  (106®C)  when  the  inlet-air  temperature 
is  58.7^F,  (15.2°C).  A  casing  has  been  replaced  by  a  second  casing  during 
preliminary  testing. 

The  throttle  regulating  the  Test  Compressor  mass  flow  at  any 
given  speed  of  operation  consists  of  a  conical  center  piece  that  can  be 
set  at  any  desired  location  concentrically  in  a  diverging  section  which 
is  then  opened  to  atmospheric  conditions  following  a  straight  duct.  The 
center  piece  can  be  moved  utilizing  an  electric  motor.  The  throttle  (annulus) 
area  that  is  available  during  center  piece  motion  is  shown  in  Fig.  A. 1.8. 

It  is  possible  to  set  the  throttle  to  within  a  tenth  of  an  inch  (about 
2.0  irms)  during  horizontal  traverse  of  the  throttle  centerpiece.  At  a 
given  Test  Compressor  speed,  a  chosen  throttle  setting  may  yield  one  of  two 
types  of  performance:  (i)  when  it  is  unchoked,  the  pressure  ratio  across 
the  throttle  (the  downstream  pressure  being  related  to  the  atmospheric 
pressure)  determines  the  mass  flow  throughout  the  Test  Compressor;  and 
(ii)  when  the  throttle  area  is  too  large  for  passing  the  mass  flow  through 
the  Test  Compressor  with  a  particular  set  of  inlet  conditions,  the  Compressor 
will  operate  under  free-wheeling  conditions. 

The  Test  Compressor  assembly  with  the  gear  box  connecting  it  to  the 
Drive  Engine  is  such  that  there  is  no  simple  access  to  its  outlet  section 
for  locating  adequate  instrumentation  or  adjusting  probes  to  establish 
compressor  outlet  conditions.  The  gear  box  disassembly  and  removal  of  the 
compressor  outlet  ducting  are  required  each  time  any  access  is  desired 
to  the  compressor  outlet  section. 
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3.1 


Refurbishment 


The  Drive  Engine  and  the  Test  Compressor  have  been  refurbished 
in  the  following  respects  by  the  Detroit  Diesel  Allison  of  Indianapolis, 
who  are  the  original  manufacturers  of  both  the  units. 

(1)  Engine  fuel  flow  control; 

(2)  Drive  shaft  interconnecting  the  Drive  Engine  and  the 
Test  Compressor; 

(3}  Test  Compressor  gear  box; 

(4)  Test  Compressor  bearings:  and 

(5)  The  6-stage  assembly  of  Test  Compressor,  including 
balancing. 

Following  this  refurbishment  and  additional  work  undertaken  at 
Purdue  University,  proof-runs  undertaken  on  the  Drive  Engine  -  Test  Compre¬ 
ssors  installation  showed  feasibility  of  satisfactory  operation  of  the 
test  unit. 
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APPENDIX  2 


STAGE  PERFORMANCE  CALCULATION 


There  are  two  options  In  the  PURDU-WICSTK  Code  for  the  calculation 
of  stage  performance: 

(1)  based  on  given  stage  characteristics,  and 

(2)  through  the  estimation  of  work  done  and  losses  In  a  stage, 
based  on  an  analytical  model. 

In  both  cases,  several  approximations  are  required.  It  may  also  be 
recalled  that  the  stage  performance  calculation  being  discussed  here 
pertains  only  to  establishing  the  stage  work  done,  and  the  consequent 
temperature  and  pressure  rise,  and  the  stage  losses  as  they  occur  be¬ 
tween  the  leading  and  trailing  edges  of  a  blade.  As  stated  In  Chapter 
II,  and  also  In  Reference  22,  the  final  exit  conditions  from  a  stage  are 
established  after  correcting  the  stage  outlet  conditions  for  various  two 
phase  flow  effects. 

In  calculating  the  stage  performance.  It  Is  necessary  to  take  Into 
account  the  presence  of  droplets  In  the  fluid,  and  their  motion, 
particularly  their  Impact  on  the  blades.  Such  Impaction  leads  to  the 
formation  of  a  film  on  the  blade  surface,  composed  of  water  from 
unrebound  droplets,  and  a  change  In  the  boundary  layer  and  separation 
characteristics.  Thus,  the  stage  characteristics  become  different  for  a 
droplet-laden  gas  flow  from  those  for  a  single  phase  gas.  The  change 
In  stage  characteristics  arises  through  modification  of  (a)  momentum 
thickness  of  boundary  layer,  (b)  diffusion  factor  and  (c)  deviation 
angle. 

It  may  be  stated  at  the  outset  that  no  correlations  of  compressor, 
cascade  or  even  single  airfoil  performance  data  are  available  for  two 
phase  flow.  It  Is  therefore  necessary  to  model  compressor  flow  based  on 
a  number  of  approximations,  In  turn  related  to  physical  process  models. 
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In  order  to  account  for  various  drop  sizes  that  may  arise  In  a  spray. 
It  has  been  suggested,  In  Reference  22  and  again  In  Chapter  11,  that 
two  classes  of  droplets  be  Identified,  one  referred  to  as  "smalT'and  the 
other  as  "large."  In  adjusting  droplet  sizes  for  any  reason.  It  Is 
assumed  that  small  droplets  may  only  remain  small,  while  large  droplets 
may  become  small  enough  to  belong  to  the  small  droplet  class.  From  the 
point  of  view  of  blade  passage  flow,  the  principal  distinction  between 
small  and  large  droplets  Is,  as  has  been  mentioned  earlier,  that  small 
droplets  are  sufficiently  small  and  follow  the  gas  phase  streamlines; 
but  large  droplets,  which  are  In  order  of about  100  um  In  diameter,  are 
assumed  to  have  equal  probability  of  motion  In  all  directions  In  the 
forward  sector.  In  addition.  It  Is  assumed  that  only  small  droplets  may 
absorb  part  of  the  work  Input.  Other  distinctions  between  the  two  classes 
of  droplets  arise  from  the  foregoing  and  are  taken  Into  account  In 
developing  compressor  flow  models  for  the  two  classes  of  droplets. 

In  order  to  simplify  calculations  of  stage  losses,  three  procedures 
have  been  developed  as  follows: 

(1)  procedure  when  the  compressor  operate  with  a  single  (gas)  phase; 

(2)  procedure  when  only  small  droplets  are  present;  and 

(3)  procedure  when  large  droplets  are  present  either  by  themselves 
or  along  with  small  droplets. 

Typical  velocity  diagram  for  an  axial  compressor  stage  Is  presented  In 
Fig. A. 2.1. 

A. 2.1.  Procedure  of  Gas  Phase  Operation 

One  can  use  either  (1)  available  stage  characteristics  or  (2)  an 
analytical/correlatlon  method  for  obtaining  stage  characteristics.  For 
the  Test  Compressor  employed  In  this  Investigation,  the  analytical/ 
correlation  method  recommended  Is  based  on  References  23  and  24. 

A. 2. 1.1.  Use  of  Available  Stage  Characteristics 

The  stage  performance  calculation  for  gas  phase  operation,  with  use 
of  available  stage  characteristics,  are  carried  out  as  follows: 
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(1)  From  given  inlet  conditions  or  the  previous  stage  outlet 
conditions,  the  total  temperature,  ,  and  the  total 
pressure,  ,  are  known. 

(2)  Calculate  the  densi^  based  on  and  ^ 

%l"  ^0  1  1 

(3)  Assume  Hach  number  M,. 

(4)  Calculate  static  temperature.  T.  and  density,  p  . 

P  =  {l  +  (y  -  l)Mf/2|  .  p^^ 

T  -  {l  +  (y  -  l)Mf/2|  Toi 

(5)  Calculate  acoustic  speed 

.  •  (r  V 

(6)  Calculate  the  axial  velocity 

V  =  m  /pA 
z  m 

(7)  Calculate  the  absolute  velocity  at  rotor  inlet,  V^. 

Vj  *  V^/cos  Oj 

(8)  Calculate  Mach  number 

M  »  V^/a  -  Mg 

(9)  Compare  the  assumed  Mach  number,  M^,  with  the  calculated  one, 
M-.  If  M  agrees  within  prescribed  limits  with  M.,  proceed 

C  w  a 

to  the  next  step.  Otherwise,  steps  3  to  9  should  be  repeated 
until  a  satisfactory  accuracy  is  obtained. 

(10)  Calculate  the  flow  coefficient,  4,  at  the  entrance  to  the 
stage  under  consideration. 

♦  ■  V“tip 
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(11)  Enter  the  stage  characteristics  curve  at  the  value  of<|>and 

obtain  the  equivalent  pressure  ratio,!//,  equivalent  temperature 
ratio, T  ,  and  stage  adiabatic  efficiency, n  . 

The  definitions  oft//  ,t  ,  and  nare  as  follows: 

(i)  flow  coefficient:  (/> 


<^  =  V^tip 

(ii)  equivalent  pressure  ratio: 

4'  = 


"tip^  , 

^Poi^ 


(y-1)/ 


'^>0  <  ^  > 


Y  ^ 
-i! 


+  1 


y/(y-i) 


(iii)equivalent  temperature  ratio:  t 


T  = 


u^  1 

tip 

'  \ 

ATo 

T 

OlJ 

l^pJ 

(iv)  stage  adiabatic  efficiency: 


n  = 


Toi 


r  Po2  (y-1)/Y 


1_ 

ATo 


where  Alois  stage  total  temperature  rise,  Po total 
pressure.  To  total  temperature,  axial  velocity, 
Utip  blade  tip  wheel  speed,  y  specific  heat  ratio. 
The  subscripts  1  and  2  mean  inlet  and  outlet, 
respectively,  and  D  design  value. 


The  equivalent  pressure  ratio,  p  ,  equivalent  temperature  ratio, t  , 
and  stage  adiabatic  efficiency,  n .  way  be  expressed  in  terms  of  flow 
coefficient  as  follows: 

i/;  ■  Ai  +  Bi^+ 

n  =  Az  +  B24»+  C2<(>*  +  +  Ez'^”  +  Fz'i'®  + 

T  *  A3<^  +  Bs 
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(12)  Once  the  values  of  t,  and n  corresponding  to  i  are  ob¬ 
tained,  the  stage  outlet  properties  can  be  calculated  from 
their  definitions.  Actually  two  of  them  are  enough  to  deter¬ 
mine  the  stage  outlet  properties.  In  the  present  calculation 
scheme,  the  equivalent  temperature  rise  ratio,  t  ,  and  the 
stage  adiabatic  efficiency,  n  ,  are  used.  The  stage  total 
temperature  rise,  aTq  ,  stage  and  total  temperature  ratio. 

To  z/Tq  1  »  stage  total  pressure  ratio,  fb  2/P0 1  »  given 

by  the  following: 


To  2/T0  1  ®  ATq  /Tq  1 


y/(y-i) 


R)  z/Ri  1  “  (1  n  aTq  /Tq  1 ) 


A. 2. 1.2.  Use  of  Analytical/Correlatlon  Method 

The  stage  performance  calculation  for  gas  phase  operation  1s  carried 
out  using  the  analytical/correlatlon  method  as  follows: 

(1)  From  given  Inlet  conditions  or  the  previous  stage  exit  conditions, 

the  total  temperature,  T  ,  and  total  pressure,  P  ,  are 

01  01 

obtained. 

(2)  Calculate  specific  heat  ratio  corresponding  to  the  temperature. 

(3)  Calculate  the  stagnation  density 

p  =  P  /RT 
01  01  01 

(4)  Assume  a  value  for  Hach  number,  M.. 

Q 

(5)  Calculate  the  static  density  and  temperature. 


-  |l  +  (y-1)M^/2| 

Ti  -  (1  +  (y-1)M^/2}’'.  Toi 
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(6)  Calculate  the  acoustic  speed 


a,  -(rRT,g/-^ 

(7)  Calculate  the  axial  velocity 

=  h/Pi  Ai 

(8)  Calculate  the  absolute  velocity 


Vl  =  V/COSa, 

(9)  Calculate  the  Mach  number,  M^. 

(10)  Compare  the  assumed  value  of  Mach  number,  M.,  with  the  calcula- 

a 

ted  one,  M..  If  M,  agrees  within  prescribed  limits  with  M„, 
proceed  to  the  next  step.  Otherwise,  steps  (4)  to  (9)  must  be 
repeated. 

(11)  Calculate  the  components  of  velocity  from  the  velocity  diagram 
at  rotor  Inlet  as  follows: 


Vi  = 

V^^/cos  Oj 

= 

V,  ,  tan  ® 

ei 

Z  1  l 

w„  = 

U  -  V 

01 

2 

(V,,  t  2) 

-  tar-'(W,/V^,) 

(12)  Calculate  relative  Mach  number  at  rotor  inlet 

(13)  Calculate  static  pressure  at  rotor  Inlet 


ro  1 


9: 


(14)  Calculate  total  pressure  at  rotor  inlet  based  on  the 
relative  Mach  number,  M^. 

r 

f  ^  y/(y-i) 

^..r  ■  {  *  *  }  •  P. 

(15)  Assuming  ,  calculate  the  total  pressure  loss  co¬ 
efficient  across  rotor  and  rotor  outlet  flow  angle. 

(16)  Calculate  the  components  of  velocity  at  rotor  outlet 
follows: 

Wgj  =  V^jtan  62 

02  =  tan"*  (Vq^/V^j) 

(17)  Calculate  the  total  temperature  at  rotor  outlet. 

To2  *  Toi  +  (U2Vq^  -  UiVgJ/Cpg^.J 

(18)  Calculate  static  temperature  at  rotor  outlet. 

T2  =  To2  -  V2/2Cpg^.J 

(19)  Calculate  acoustic  speed  at  rotor  outlet. 

32  =  (YRT2g^)°*® 

(20)  Calculate  absolute  and  relative  Mach  number  at  rotor 
outlet. 

M2  ■  ^z/i2 
M^^  ■  W2/a2 
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(21)  Calculate  total  pressure  loss  factor  across  rotor. 


02, r 

02. ri 

-  ~  ^1  \ 

P  ^ 

P 

Wr  (1  -  p  ) 

01  »r 

01  ,r 

01  ji* 

where 

P 

“2,  n  _ 
p 

Y 

(r^) 

0 1  ,r 


01  ,r 

1*5^- 


RT 


—  !-(?•) 

01  ,r  I-  z  J 


(22)  Calculate  total  pressure  ratio  across  rotor,  and  total 
and  static  pressure  at  rotor  outlet. 


P 

Poi 


T  Y“1  P  P  .  , 

^91. r  ^01, r 


02 


(^)  P.. 


01 


P2  =  (1  p 


02 


(23)  Calculate  density  at  rotor  outlet. 


Pz  =  P2/RT2 

(24)  Calculate  the  axial  velocity  at  rotor  outlet. 

Vz2  =  */p2A2 


(25)  Compare  the  calculated  value  of  (24)  with  the  assumed 

in  (15).  Iterate  steps  (15)  to  (24)  until  a  desired 
accuracy  is  obtained. 
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mpiii  ) 


(26)  Calculate  total  pressure  at  rotor  outlet. 
Po2  =  {  1  +  (y  -  1)M2/2  }  y/(y-1), 


(27)  Calculate  the  total  pressure  loss  coefficient  across  stator, 

and  stator  outlet  angle  a|. 

(28)  Calculate  total  pressure  loss  factor  across  stator. 


(29)  Calculate  the  total  pressure  ratio  and  total  temperature  ratio 
across  the  stage. 


PR  = 


D  T  Y*1  p 

^  =  (W  .  (P^) 

f^oi  loi  roi,r 


.  (^) 
roi,r  ro2 


TR  =  T03/T 


01 


(30)  Obtain  total  pressure  and  temperature  at  stator  outlet. 


03 


rju. 

^02} 


.  p 


02 


03 


*  T 


02 


(31)  Calculate  the  average  value  of  specific  heat  ratio. 


(32)  Calculate  the  stage  efficiency. 


A. 2. 2  Procedure  when  Small  Droplets  are  Present. 

When  all  of  the  droplets  present  at  entry  to  a  stage  can  be 
categorized  as  small  droplets,  the  following  assumptions  are  introduced. 

(1)  Droplets  follow  gas  phase  streamlines. 

(2)  A  fraction  of  the  droplets  impacting  the  blades  undergo 
rebound.  The  balance  of  impacting  droplets  move  over  the 
blade  surface  in  the  form  of  a  thin  film.  The  momentum  of 
the  thin  film  is  negligible. 

(3)  The  development  of  the  boundary  layer  over  the  blade  surface 
can  be  based  on  Reference  25.  The  following  assumptions 

are  made  in  that  Reference:  (i)  droplets  do  not  interact 
with  one  another;  (ii)  a  two  phase  boundary  layer  exists;  and 
(iii)  the  momentum  thickness  for  the  two  phases  can  be 
superposed  after  they  are  obtained  in  two  parts. 

(4)  The  deviation  angle  remains  the  same  in  two  phase  flow  as 
in  single  phase  flow.  The  reasoning  is  that  diffusion  and 
transport  of  particles  can  be  neglected  as  being  small  and, 
in  any  case,  as  balancing  each  other. 

(5)  The  loss  coefficient  for  two  phase  flow  is  thus  the  sum 

of  the  loss  coefficient  for  each  phase.  The  loss  coefficient 
for  the  liquid  phase  may  also  be  added  in  an  appropriate  form 
to  the  stage  efficiency  for  a  stage  obtained  during  operation 
with  air  in  order  to  obtain  the  stage  efficiency  for  two  phase 
flow. 

(6)  Considering  a  blade  passage  flow,  between  two  neighboring 
blades,  away  from  solid  boundaries,  the  drag  due  to  droplets 
can  be  calculated  assuming  Stokes  drag  relation.  The  number 
of  droplets  suffering  such  drag  is  the  sum  of  the  number  of 
non-impacting  droplets  and  the  number  of  rebound  droplets. 
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(7)  The  overall  loss  is  obtained  by  adding  the  losses  described 
under  (5)  and  (6). 

A. 2. 2.1  Use  of  Available  Stage  Characteristics 

In  dealing  with  a  mixture  containing  small  droplets.  It  is  assumed 
that  (a)  gas  phase  and  the  small  droplets  behave  In  the  same  fashion 
In  absorbing  work  Input  as  a  gas,  and  (b)  the  Influence  of  small  droplets 
arises  In  the  determination  of  (a)  the  flow  coefficient  and  (b)  the 
stage  losses. 

In  using  gas  flow  stage  characteristics  for  a  mixture  with  small 
droplets,  the  pressure  rise  for  the  gas  phase,  the  temperature  rise  of 
water  and  efficiency  are  determined  for  the  relevant  value  of  flow 
coefficient  from  the  gas  phase  characteristics,  and  then,  the  efficiency 
Is  further  modified  to  account  for  the  presence  of  small  droplets. 

The  stage  performance  calculation  for  a  mixture  with  small  droplets 
can  thus  be  carried  out  using  the  available  stage  characteristics  as 
follows: 

(1)  From  the  previous  stage  outlet  properties,  the  gas  phase  total 
temperature,  T(,i  g,  and  the  total  pressure,  Roj,  are  known. 

(2)  Calculate  the  gas  constant,  specific  heat  at  constant  pressure, 
and  specific  heat  ratio  of  the  gas  phase. 

(3)  Calculate  the  stagnation  density  of  gas  phase. 

(4)  Assume  a  value  for  Mach  number,  M.. 

O 

(5)  Calculate  the  static  density  and  static  temperature  of  the 
gas  phase. 

(6)  Calculate  the  acoustic  speed  In  the  gas  phase. 

(7)  Calculate  the  acoustic  speed  in  the  mixture,  a. 
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(8)  Calculate  the  density  of  the  mixture. 


(9)  Calculate  the  axial  velocity. 

''z 

(10)  Calculate  the  absolute  velocity. 

Vi  =  V^/COS  ai 

where  aj*  air  outlet  angle  of  the  previous  stage  stator. 

(11)  Calculate  the  Mach  number,  M  . 

c 

=  Vi/a 

(12)  Compare  the  assumed  Mach  number,  with  the  calculated  one, 

fl 

Me*  If  M^  agrees  reasonably  well  with  M^,  proceed  to  the  next 
step.  Otherwise,  steps  (4)  to  (11)  must  be  repeated. 

(13)  Calculate  the  flow  coefficient  at  the  entrance  of  the  stage 


(14)  Enter  the  stage  characteristic  curve  at  the  foregoing  value 
of  <|). 

The  compressor  stage  characteristics,  described  in  A. 2. 1.1., 
which  apply  to  air  flow  through  the  compressor,  have  been  utilized  in 
this  calculation  for  obtaining  the  stage  temperature  ratio  and  stage 
adiabatic  efficiency  for  the  mixture  of  air  and  small  droplets.  It  may 
be  recalled  that  the  stage  temperature  rise  corresponding  to  a  mixture 
flow  coefficient  has  to  be  apportioned  between  the  gas  and  the  liquid 
phases.  The  gas  phase  then  undergoes  a  change  in  temperature  and 
pressure  while  the  liquid  phase  undergoes  only  a  temperature  change. 
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utilizing  the  stage  temperature  ratio  and  adiabatic  efficiency, 
one  can  then  calculate  the  stage  pressure  ratio  and  the  change  In 
water  temperature.  In  the  current  method  of  calculating  stage 
performance  for  two  phase  flow,  all  of  the  other  effects  due  to  the 
presence  of  droplets  are  taken  Into  account  at  the  exit  of  the  stage 
under  consideration. 

(15)  Apportion  energy  input  into  the  mixture. 

Regarding  apportionment  of  energy  Input  Into  the  mixture 
In  a  stage,  one  proceeds  as  follows.  The  work  Input  Is 
expressed  by  the  following  relations: 

AHq  =  (AHo)i  +  (AHo  )2  (aHo)3  +  (AHt))4 
where 

AHo  :  actual  work  Input  In  rotor; 

(aF^)i  :  work  Input  to  gas  phase; 

(Af^]2  :  work  Input  absorbed  by  droplets  which  do  not 

Impinge  upon  blade  surface; 

(aH))3  :  work  Input  absorbed  by  water  droplets  which 
Impinge  upon  blade  surface,  adhere  to  form  a 
film  and  are  re-entrained  from  the  trailing 
edge;  and 

(aI^)4  :  work  Input  absorbed  by  droplets  which  Impinge 

upon  blade  surface  and  rebound. 

Defining  mass  fractions  as  follows: 

:  mass  fraction  of  gas  phase, 
x^^  :  mass  fraction  of  water  which  does  not  Impinge 

upon  blade  surface 

X  mass  fraction  water  which  Impinges  on  the  blade 

W2 

surface  and  rebounds 

X  :  mass  fraction  of  water  which  Is  re-entrained 

from  the  trailing  edge. 
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and  noting  that 


+  X., 

g  wi 


+  x_  +  »  1, 


W2 


W} 


one  can  express  the  work  input  fractions  as  follows  in  terms  of  the 
stage  work  done  factor, X  . 


(Alt)i  >  XMW,,  -  W,,)  Xg 
(4H, ),  =  XU2(M;,  -  w;,  )  X^. 


where  W.,  and  U'  are  relative  inlet  whirl  velocities  of  the  gas  phase 
and  water  droplets  which  do  not  impinge  upon  the  blade  surface, 
respectively,  and  and  are  the  same  velocities  at  outlet. 

Also,  from  physical  considerations,  the  angular  momentum  change  of 
water  which  impinges  on  the  surface  and  adheres  to  form  films  and  is 
finally  re-entrained  from  the  trailing  edge  can  be  considered  to  be 
negligible.  Therefore, 

(AHo)3  =  0 

Then,  )4can  be  calculated  by  writing 
(aHo  )4  =  aHj  -  (aHo)i  ~  (aHj  )2 

The  total  work  input,  a^) ,  is  calculated  from  the  stage  performance 
curves.  In  the  present  analysis,  since  we  are  considering  small  droplets, 
the  velocity  lag  between  gas  phase  and  water  droplet  can  be  considered 
to  be  negligible.  Accordingly  Wgj  and  can  be  set  to  be  the  same  as 
as  Wg,  and 

From  (aH))i,  (a^)  )2.(aH,  >3.  and  (a^^.)4,  the  total  temperature  rise 
can  be  calculated  for  each  phase. 

(16)  Obtain  the  total  pressure  loss  because  of  the  increase  in 
momentum  thickness  of  the  boundary  layer  due  to  the 
existence  of  small  droplets  in  the  boundary  layer. 
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(17)  Obtain  the  total  pressure  loss  due  to  the  Stokesian  drag 
of  water  droplets  outside  boundary  layer. 

(18)  Calculate  the  stage  outlet  total  pressure  as  follows; 


where  Poais  the  stage  outlet  total  pressure  obtained  from  the  available 
stage  characteristics,  APg  is  the  the  total  pressure  loss  due  to  the 
increase  in  momentum  thickness  because  of  the  existence  of  small  droplets 
in  the  boundary  layer,  and  AP^  is  the  total  pressure  loss  due  to  the 
Stokesian  drag  of  water  droplets  in  the  free  stream  outside  the 
boundary  layer. 

It  may  be  pointed  out  that  in  view  of  the  assumption  pertaining 
to  motion  of  small  droplets  (  with  zero  relative  velocity  with  respect 
to  gas  phase),  the  correction  to  stage  pressure  rise  due  to  Stokesian 
drag  becomes  zero  for  small  droplets. 

(19)  Calculate  the  stage  total  pressure  ratio. 

A. 2. 2. 2  Use  of  Analytical /Correlation  Method 

In  using  the  analytical/correlation  method  for  the  flow  of  a  mixture 
with  small  droplets,  the  basic  procedure  is  the  same  as  when  utilizing 
available  stage  characteristics.  Appendix  Section  A. 2. 2.  The  pressure 
rise  for  the  gas  phase  and  the  termperature  rise  of  water  are  determined 
from  the  mixture  turning  angle  over  a  blade.  The  losses  are  established 
based  on  (a)  the  relation  (due  to  Lieblein)  between  the  loss  coefficient 
and  the  pressure  loss;  the  loss  coefficient  in  turn  related  to  the 
momentum  thicknesses  of  the  blade  boundary  layer  due  to  the  gas  phase 
and  the  droplets;  and  (b)  the  Stokesian  drag  of  droplets  in  the  free 
stream.  The  latter,  of  course,  is  zero  for  small  droplets,  by  definition. 


The  stage  performance  calculation  for  a  mixture  with  small  droplets 
is  carried  out  using  the  analytical /correlation  method  as  follows: 


(1)  From  the  given  inlet  condition  or  the  previous  stage 

properties,  the  gas  phase  total  temperature,  T  and 

0 1  >9 

total  pressure,  Poi,  are  obtained. 
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(2) 

(3) 


Calculate  the  gas  constant,  R^,  specific  heat  constant 
pressure,  Cp^  and  specific  heat  ratio  of  gas  phase ,y  . 

Calculate  the  stagnation  density  of  gas  phase. 


P 


0 1  ,g 


Poi/R  T 

g 


01* 


9 


(4) 

Assume  a 

(5) 

Calculate 

‘>9.  '  ['* 

T  =  [1+ 
gi  L 

(6) 

Calculate 

»g,  -(Y 

(7) 

Calculate 

(8) 

Calculate 

Calculate  the  acoustic  speed  in  the  gas  phase  a 
T  g 

g  grc^ 

Calculate  the  acoustic  speed  in  the  mixture, 

Calculate  the  density  of  the  mixture 
.  -1 


gi 


P  = 
m 


_a  +  _w 

Pg  Pw 


(9) 


Calculate  the  axial  velocity 


Vy  =  m  /p  A 

Zj  mil 
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(10)  Calculate  the  absolute  velocity 


V,  =  V_  /cos  ai 

^  Zi 

(11)  Calculate  the  Mach  number,  M^. 

Mj.  =  Vi/ai 

(12)  Compare  the  assumed  Mach  number,  M^,  with  the  calculated  one. 
Me*  If  Mg^  agrees  within  prescribed  limits  with  proceed 
to  the  next  step.  Otherwise,  steps  (4)  to  (11)  must  be 
repeated. 

(13)  Calculate  the  components  of  velocity  at  rotor  inlet  as  follows 


h 

II 

V^j/cosai 

II 

V^j/tanai 

“e. 

II 

U.  -  Ve. 

If 

6l 

(14)  Calculate  relative  Mach  number  at  rotor  inlet 


M^  =  W  /a 
rj  1  1 


(15)  Calculate  static  pressure  at  rotor  inlet 


102 


(16)  Calculate  total  pressure  at  rotor  inlet  based  on  the  relative 
Mach  number,  M 

,  ^  Y  /(y  -  1) 

(17)  Assuming  V,  the  total  pressure  loss  coefficient  across 

*2  _ 

rotor  due  to  gas  phase,  «u  _  d  »  rotor  outlet  angle  gj. 

(18)  Obtain  the  total  pressure  loss  coefficient  due  to  the 
increase  of  momentum  thickness  because  of  the  existence  of  small 
droplets  in  the  boundary  layer  over  a  rotor  blade  surface^ug  [^. 

(19)  Obtain  the  total  pressure  loss  across  rotor  due  to  the 

Stokesian  drag  of  water  droplets  outside  boundary  layer  oT* 

S »  K 

(20)  Calculate  the  components  of  velocity  at  rotor  outlet  as 
follows: 

“ej  " 

\  -  “^-"92 

^2  '  (VL  ♦  VJ 

^  '  Z2  02 

02  =  tan'^Vgj/V^j) 

(21)  Calculate  the  work  input. 
aHo  =  (UjVg^  -  UiVgj)/gcJ 

(22)  Apportion  work  input  to  the  mixture  constituents  as  described 
in  item  (14)  of  A. 2. 2.1. 


P!i  *  *  Po2 
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(29)  Calculate  static  density  at  rotor  outlet. 


(30)  Compare  the  calculated  value  of  in  (29)  with  the 

assumed  value  of  In  (25).  Iterate  steps  (25)  to  (29) 
until  a  desired  accuracy  Is  obtained. 


(31)  Calculate  the  density  of  mixture  at  rotor  outlet. 


(32)  Calculate  the  axial  velocity  at  rotor  outlet. 


m  m 


(33)  Compare  the  calculated  value  of  In  (32)  with  the 

assumed  value  of  V,  in  (17).  Iterate  steps  (17)  to  (32) 

Z2 

until  a  desired  accuracy  is  obtained. 


(34)  Calculate  total  pressure  at  rotor  outlet. 

r  2  1  Y  /(y  -0 

Po2  =  I  1  +  (y  -  1)  M2/2|  .P2 

(35)  Calculate  the  total  pressure  loss  coefficient  across  stator 
due  to  gas  phase,  oL  and  stator  outlet  angle,  03. 

9  f  ^ 

(36)  Obtain  the  total  pressure  loss  coefficient  due  to  the 
Increase  of  momentum  thickness  because  of  the  existence 
of  small  droplets  in  the  boundary  layer  on  a  stator  blade 
surface, 
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(37)  Obtain  the  total  pressure  loss  across  stator  due  to  the 
Stokesian  drag  of  water  droplets  in  the  free  stream  outside 
boundary  layer  5-  It  may  be  noted  that  Stokesian  drag  is 
zero  in  the  case  of  small  droplets  by  definition. 

(38)  Calculate  total  pressure  loss  factor  across  stator. 


1  -  {I 


g.s 


“e.s 


“s.S^ 


P2 


02 


(39)  Calculate  the  total  pressure  ratio  and  gas  phase  total 
temperature  ratio  across  stage. 


(40)  Obtain  total  pressure  and  gas  phase  total  temperature 
at  stator  outlet. 


P 

0  3 


P02 


03»g  02.9 

(41)  Calculate  the  average  value  of  specific  heat  ratio. 

(42)  Calculate  the  stage  efficiency. 

pf^(Y-l)/Y_j 

■  TR  -  1 
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I  Procedure  vhen  Large  or  Large  and  Small  Droplets  are  Present 

It  is  postulated  that  when  large  droplets  are  present,  they  always 
play  the  more  dominant  role. 

The  following  assumptions  are  introduced. 

(1)  Droplets  move  with  equal  probability  in  all  directions 
in  the  forward  sector. 

(2)  A  fraction  of  the  droplets  impacting  the  droplets 
undergo  rebound.  The  balance  of  impacting  droplets 
move  over  the  blade  surface  in  the  form  of  a  thick 
film.  The  momentum  of  the  thick  film  is  appreciable 
and  represents  a  loss  of  mixture  momentum. 

(3)  The  development  of  the  boundary  layer  can  be  estimated 
based  on  the  following  reasoning:  (a)  The  thick  film 
presents  a  continuous  rough  surface;  (b)  the  roughness 
is  at  most  of  the  order  of  droplet  thickness;  and 

(c)  the  boundary  layer  is  fully  turbulent  and  extends 
over  the  chord  length.  A  coefficient  of  friction  for 
the  flow  can  then  be  based  on  Ref.  26. 

(4)  The  deviation  angle  remains  the  same  as  in  the  case  of 
single  phase  flow. 

(5)  Considering  a  blade  passage  flow,  between  two  neighboring 
blades,  away  from  solid  boundaries,  the  drag  due  to 
droplets  can  be  calculated  assuming  Stokes  drag  relation. 

The  number  of  droplets  suffering  such  drag  is  the  sum  of 
the  number  of  non-impacting  droplets  and  the  number  of 
rebound  droplets. 

(6)  The  overall  loss  is  therefore  obtained  by  adding  the 
losses  described  under  (2),  (3)  and  (5). 

It  may  be  observed  that  the  foregoing  procedure  for  large  droplets 
precludes  the  use  of  available  stage  characteristics  and  subsequent 
correction  of  efficiency  due  to  the  presence  of  droplets.  The  procedure 
is  also  different  from  the  Lieblein  analytical/correlation  method  used 
in  the  case  of  small  droplets  in  that  no  simple  superposition  of  blade 
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profile  losses  is  feasible  in  the  case  of  large  droplets.  The  loss  due 
to  Stokesian  drag  of  large  droplets  in  the  free  stream,  of  course,  is 
accounted  for  by  simple  addition  to  other  losses. 


A. 2. 3.1.  Details  of  Procedure 


The  stage  performance,  when  large  droplets  are  present,  with  or 
without  small  droplets,  is  carried  out  as  follows.  It  may  be  pointed 
out  that  the  determination  of  stage  pressure  ratio  follows  the  same 
procedure  as  in  the  case  of  a  mixture  with  small  droplets  only. 
Appendix  Section  A. 2. 2. 2.  The  determination  of  the  loss  coefficient 
when  large  droplets  are  present  is  wholly  different. 

(1)  From  given  initial  conditions  or  from  the  previous  stage 

properties  the  gas  phase  total  temperature,  T  ^  and 

0  1  »9 

total  pressure,  P  ,  are  obtained. 

0  1 

(2)  Calculate  the  gas  constant,  R^,  specific  heat  at  constant 
pressure,  Cp^,  and  specific  heat  ratio,  y  . 

(3)  Calculate  the  stagnation  density  of  gas  phase. 


(4) 

(5) 


^oi,g  ■ 


Assume  a  value  for  Mach  number,  M. . 

Q 


Calculate  the  static  density,  and  temperature  of  gas  phase, 
as  follows. 


(  2  '1  -i/(y  -1) 

p  ^  { 1  My  -  } 

T„  =  /  1+(y  -1)  n]  \t  „ 

91  I  *2  J  01.9 
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(6)  Calculate  the  acoustic  speed  in  the  gas  phase,  a^^ . 


(7)  Calculate  the  acoustic  speed  in  the  mixture,  a^. 

(8)  Calculate  the  density  of  the  mixture. 

p  =  A  + 

m  Pg  P„ 

(9)  Calculate  the  axial  velocity. 

'‘zi  -  V”™* 

(10)  Calculate  the  absolute  velocity. 

Vi  ,  V^/cos  ai 

(11)  Calculate  the  Mach  number, 

Me  =  Vi/ai 

(12)  Compare  the  assumed  Mach  number,  M^,  with  the  calculated  one, 
M  .  If  M^agrees  within  prescribed  limits  with  M_,  proceed 

to  the  next  step.  Otherwise  steps  (4)  to  (11)  must  be 
repeated. 

(13)  Calculate  the  components  of  velocity  at  rotor  inlet  as 
follows: 

Vi  •  V^^/COSai 

V  =  V,  tanoi 
01 


%  =  ^  ’  Vei 

2  2  «  tty 

Bi  =  tan“^(Wgi/V2^) 

(14)  Calculate  relative  Mach  number  at  rotor  inlet. 


M„  =  Wi/ai 
^1 


(15)  Calculate  static  pressure  at  rotor  inlet. 

f  \-y  /(y  -1) 


.  P 


01 


(16)  Calculate  total  pressure  at  rotor  inlet  based  on  M  . 

r 

f  \y  /(y  -O 

"o.-r  •{  ‘*1’'  -»  VM 

(17)  Assuming  calculate  the  total  pressure  loss  due  to 
gas  phase,  u  and  rotor  outlet  angle  82 

9>^ 


(18)  Calculate  the  total  pressure  loss  coefficient  due  to  the 
momentum  gained  by  thick  water  film  moving  over  the  rotor 
blade  surface,  io,  _  . 


(19)  Calculate  the  total  pressure  loss  coefficient  due  to 

turbulent  flow  of  mixture  over  the  rough  film  surface  of 
rotor  blade  ,  . 

(20)  Calculate  the  total  pressure  loss  coefficient  due  to  the 
Stokesian  drag  of  water  droplets  in  rotor  passage,  aT.  „ 

S  jK 


no 


(21)  Calculate  the  components  of  velocity  diagram  at  rotor 
outlets  as  follows: 

=  ''z-2 

''e?  - 

V.  = 

CX2  =  tan'^Vg^/V^J 


(22) 

(23) 

(24) 

(25) 

(26) 

(27) 


Calculate  the  work  input, 
an.  =  OaV,,  -  U,V,.)V 

Apportion  the  energy  input  in  the  mixture  as  described  in 
item  (15)  of  A, 2. 2.1. 

Calculate  static  temperature  of  gas  phase  at  rotor  outlet. 

T„2  =  T  „  -  V2/2c„  g^J 
o2»9  ^  pg  c 

Calculate  the  acoustic  speed  in  gas  phase. 

“g.  '  '^Vg.’c>°-' 


Assume  and  calculate  the  acoustic  speed  in  the 

mixture  a 2. 


Calculate  absolute  and  relative  Mach  number  at  rotor  outlet. 


M,  =  V,/a 


2' “2 


M.  =  Ws/aj 
'  2 
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(28)  Calculate  total  pressure  loss  factor  across  rotor. 


r  -  r 

JUjJ:  =  .  (u 

P  P  ^  ' 

01. r  01. »* 


-  trrr  ■  '-g.R*“f.R*  “r,R  *  “s.R  >  ’ 


01 


,r 


(29)  Calculate  total  pressure  ratio  across  rotor,  and  total 
static  pressure  at  rotor  outlet. 


P  T  „  Y-i  P  ..  P  ..4  -1 

^  .  (^) 

01  01.9  01. r 


Ri2  =  Poi 


^2  =  ( 1  +  Ma )  Ri  2 


(30)  Calculate  static  density  at  rotor  outlet. 


p  ~  P2/R  T 
92  *^^'  9  92 


(31)  Compare  the  calculated  (27)  with  the  assumed  p^^  in 

(23).  Iterate  steps  (23)  to  (27)  until  a  desired  accuracy 
is  obtained. 


(32)  Calculate  the  density  of  mixture. 

1  -1 


_a  +  -W 


(33)  Calculate  the  axial  velocity  at  rotor  outlet. 


Z2 
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(34)  Compare  the  calculated  V,  in  (33)  with  the  assumed  V  in 

*2  22 
(34).  Iterate  steps  (17)  to  (33)  until  the  desired  accuracy 

is  obtained. 


(35)  Calculate  total  pressure  at  rotor  outlet. 

f  2  S  Y  /(y  -1) 

Po2  =  {  1+  (y  -  1)  Mz/Zj  .  P2 

(36)  Calculate  the  total  pressure  loss  coefficient  across  stator 
due  to  gas  phase*  u  ,  and  stator  outlet  angle,a3. 

(37)  Calculate  the  the  total  pressure  loss  coefficient  due  to 
the  momentum  gained  by  thick  water  film  on  the  stator  blade 
surface,  j. 

(38)  Calculate  the  total  pressure  loss  coefficient  due  to  turbulent 
friction  over  a  rough  film  surface  over  the  stator  blade,u 

(39)  Obtain  the  total  pressure  loss  across  stator  due  to  StokesiSn 
drag  of  large  water  droplets  in  the  free  stream  outside 
boundary  layer,  u. 

5 

(40)  Calculate  total  pressure  loss  factor  across  the  stator. 


1  -  («, 


+  c  c  +  <*>_  c)  (1 


g,S  "'f,S  '"r,S 


“s.S' 


2) 

Pq  2 


(41)  Calculate  the  total  pressure  ratio  and  gas  phase  total 
temperature  ratio  across  stage. 


(42) 


Obtain  total  pressure  and  gas  phase  total  temperature  at 
stator  outlet. 


'03 


Paai 


•  P, 


Q2 


T  «  =  T  „ 
03>9  02>9 


(43)  Calculate  the  average  value  of  the  specific  heat  ratio. 


(44)  Calculate  the  stage  efficiency. 

Pr(y-i)/y,j 

^  '  TR  -  1 


APPENDIX  3 


DETAILED  DESCRIPTION  OF  SUBROUTINES 
AND  EXTERNAL  FUNCTIONS 


There  are  27  subroutines  and  13  external  functions  In  this  program. 
Brief  descriptions  of  these  subprograms  are  presented  in  Chapter  III.  A 
more  detailed  description  of  each  subprograms  is  presented  here.  Each 
of  the  subroutines  and  external  functions  is  presented  as  follows: 

(1)  Description,  (2)  Input  variables,  (3)  Output  variables,  and  (4)  Usage. 

SUBROUTINE  WICSPA 

(1)  Description: 

The  subroutine  WICSPA  is  used  for  the  calculation  of 
performance  based  on  the  inputed  stage  characteristic 
curves.  A  detailed  descriptions  of  calculation  procedure 
is  presented  in  Appendix  2. 

(2)  Input  Variables: 

FAIO  initial  flow  coefficient 

ISTAGE  stage  at  which  performance  calculation  is 

carried  out 

MMASS  mass  flow  rate  of  mixture. 

ALFAl  absolute  flow  angle  at  outlet  of  the  previous 

stage  stator 

WKDONE  work  done  factor 

DAVE  nominal  diameter  of  small  droplet 

XDIN  initial  water  content  of  small  droplet 

AKl  constant  in  Eq.  (A. 3. 6)' 

AK3  constant  in  Eqs.  (A, 3.1)'  and  (A. 3. 2)' 

(3)  Output  Variables: 

ETA  stage  adiabatic  efficiency 

BETAl  relative  flow  angle  at  rotor  inlet 

BETA2  relative  flow  angle  at  rotor  outlet 

VZ  axial  velocity 
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(4) 


SUBROUTINE 

(1) 


(2) 


ALFA2  absolute  flow  angle  at  stator  inlet 

ALFA3  absolute  flow  angle  at  stator  outlet 

DELTG  rise  in  total  temperature  of  gas  phase  across 

a  stage 

DELTW  rise  in  temperature  of  small  droplet  across 

a  stage 

W1  relative  velocity  at  rotor  inlet 

W2  relative  velocity  at  rotor  outlet 

VI  absolute  velocity  at  rotor  inlet 

V2  absolute  velocity  at  stator  inlet 

V3  absolute  velocity  at  stator  outlet 

Usage: 

CALL  WICSPA  (FAIO.  ISTA6E,  MMASS.  ALFAl  .WKDONE,  DAVE.XDIN 
ETA,  BETA1,BETA2,  VZ.  ALFA2.  ALFA3,  DELTG, DELTW 
W1,W2,  V1,V2,V3,  AKl,  AK3) 


MICSPB 

Description: 

The  subroutine  WICSPB  is  used  for  the  calculation  of  stage 
performance  based  on  the  analytical/correlation  method  for 
small  droplet.  A  detailed  description  of  calcualtion 
procedure  is  presented  in  Appendix  2. 

Input  Variables: 

FAIO  initial  flow  coefficient 

ISTAGE  stage  at  which  performance  calculation  is 

carried  out 

fflASS  mass  flow  rate  of  mixture 

ALFAl  absolute  flow  angle  at  outlet  of  the  previous 

stage  stator 

WKDONE  work  done  factor 

OAV  nominal  diameter  of  small  droplets 
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DELV 


(3) 


relative  velocity  between  gas  phase  and  large 
droplets 

XMAS  mass  flow  rate  of  small  droplets 

N  station  number  (Fig.  5.1) 

AKl  constant  in  Eq.  (A. 3. 6)' 

AK2  constant  in  Eq.  (A. 3. 7)'  and  (A. 3. 8)' 

AK3  constatn  in  Eq.  (A. 3.1)'  and  (A. 3. 2)' 

Output  Variables: 

OMEGAl  total  pressure  loss  coefficient  due  to  single¬ 

phase  (gas)  flow  profile  loss  in  rotor 

0MEGA2  total  pressure  loss  coefficient  due  to  loss 

for  small  droplets  on  account  of  the  change  in 
momentum  thickness  of  boundary  layer  due  to  the 
presence  of  such  droplets  in  rotor 

0MEGA3  total  pressure  loss  coefficient  due  to 

Stokesian  drag  of  small  droplets  in  the  free 
stream  of  blade  passage  in  rotor 

0MEGA4  total  pressireloss  coefficient  due  to  single¬ 
phase  (gas)  flow  profile  loss  in  stator 

OMEGAS  total  pressure  loss  coefficient  due  to  loss 

for  small  droplets  on  account  of  the  change 
in  momentum  thickness  of  boundary  layer  due 
to  the  presence  of  such  droplets  in  stator 

OMEGAS  total  pressure  loss  coefficient  due  to  Stokesian 
drag  of  small  droplets  in  the  free  stream  of 
blade  passage  in  stator 

OMEGAT  sum  of  total  pressure  loss  coefficients 
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BETAl 


relative  flow  angle  at  rotor  inlet 


BETA2  relative  flow  angle  at  rotor  outlet 

VZ  axial  velocity 

ALFA2  absolute  flow  angle  at  stator  inlet 

ALFA3  absolute  flow  angle  at  stator  outlet 

DELTG  rise  in  total  temperature  of  gas  phase 

across  a  stage 

DELTW  rise  in  temperature  of  small  droplet 

across  a  stage 

W1  relative  velocity  at  rotor  inlet 

W2  relative  velocity  at  rotor  outlet 

VI  absolute  velocity  at  rotor  inlet 

V2  absolute  velocity  at  stator  inlet 

V3  absolute  velocity  at  stator  .outlet 

Usage: 

CALL  WICSPB  (FAIO,  ISTA6E,  MMASS,  ALFAl,  WKDONE,  DAV, 
DELV,  WMAS,  N,  OMEGAl,  0MEGA2,  0MEGA3, 
0MEGA4.  OMEGAS,  OMEGAS,  OMEGAT,  BETAl, 
BETA2,  VZ.ALFA2,  ALFA3,  DELTG,  DELTW,  Wl, 
W2,  VI,  V2,  V3,  AKl,  AK2,  AK3) 


SUBROUTINE  W.ICSPC 


(1)  Description; 

The  subroutine  WICSPC  Is  used  for  the  calculation  of  stage 
performance  based  on  the  analytical /correlation  method  for 
large  droplet.  A  detailed  description  of  calculation 
procedure  Is  presented  In  Appendix  2. 

(2)  Input  Variables: 

FAIO  Initial  flow  coefficient 

I STAGE  stage  at  which  performance  calculation  Is 

carried  out 

MMASS  mass  flow  rate  of  mixture 

ALFAl  absolute  flow  angle  at  outlet  of  the 

previous  stage  stator 

WKDONE  work  done  factor 

DAV  nominal  diameter  of  large  droplets 

DELV  relative  velocity  between  gas  phase 

and  large  droplets 

WMAS  mass  flow  rate  of  small  droplets 

WWMAS  mass  flow  rate  of  large  droplets 

N  station  number  (Fig.  5.1) 

Average  Reynolds  number 
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REAVE 


DELVU2  relative  velocity  between  gas  phase  and 
droplet 

DELVL2  relative  velocity  between  gas  phase  and 

droplet 

AKl  constant  in  Eq.  (A.3.6.)' 

AK2  constant  in  Eq.  (A. 3. 7)'  and  (A. 3. 8)’ 

AK3  constant  in  Eq.  (A. 3.1)'  and  (A. 3. 2)' 

Output  Variables: 

OMEGAl  total  pressure  loss  coefficient  due  to 

the  mixture  boundary  layer  formed  over  rough 
film  surface  in  rotor 

0MEGA2  total  pressure  loss  coefficient  due  to  film 

formed  on  rotor  blade  surface 

0MEGA3  total  pressure  loss  coefficient  due  to 
Stokesian  drag  of  large  droplets  in  the 
free  stream  of  blade  passage  in  rotor 

0MEGA4  total  pressure  loss  coefficient  due  to 

the  mixture  boundary  layer  formed  over 
rough  film  surface  in  stator 

OMEGAS  total  pressure  loss  coefficient  due  to 

film  formed  on  stator  blade  surface 

OMEGAS  total  pressure  loss  coefficient  due  to 

Stokesian  drag  of  large  droplets  in  the 
free  stream  of  blade  passage  in  stator 


0ME6AT  sum  of  total  pressure  loss  coefficient 

BETAl  relative  flow  angle  at  rotor  inlet 

BETA2  relative  flow  angle  at  rotor  outlet 

VZ  axial  velocity 

ALFA2  absolute  flow  angle  at  stator  inlet 

ALFA3  absolute  flow  angle  at  stator  outlet 

DELTG  rise  in  total  temperature  of  gas  phase 

across  a  stage 

DELTW  rise  in  temperature  of  small  droplet 

across  a  stage 

W1  relative  velocity  at  rotor  inlet 

W2  relative  velocity  at  rotor  outlet 

VI  absolute  velocity  at  rotor  inlet 

V2  absolute  velocity  at  stator  inlet 

V3  absolute  velocity  at  stator  outlet 

Usage: 

CALL  WICSPC  (FAIO,  ISTA6E  ,  MMASS,  ALFAl,  WKDONE,  DAV, 

DELV,  WMAS,  ^MAS,  N,  OMEGAl,  0MEGA2,  0MEGA3, 
0MEGA4,  0MEGA5,  0MEGA6,  OMEGAT.  BETAl.  BETA2. 
VZ,  ALFA2,  ALFA3,  DELTG,  DELTW,  Wl,  W2,  VI,  V2, 
V3,  REAVE,  DELVU2,  DELVL2,  AKl,  AK2,  AK3) 
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SUBROUTINE 

(1) 


(2) 


(3) 

(4) 


WICSPD 

Description 

The  subroutine  WICSPD  is  used  for  the  calculation  of 
design  point  performance.  The  properties  obtained 
in  this  subroutine  become  reference  properties  for 
calculation  of  off-design  performance. 

Input  Variables 

AfiASS  mass  flow  rate 

ISTAGE  stage  at  which  performance  calculation 

is  carried  out 

Output  Variables: 

none 

Usage: 

CALL  WICSPD  (AMASS,  ISTAGE) 
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SUBROUTINE  WICSCC 


(1)  Description: 

Subroutine  WICSCC  calculates  the  equivalent  pressure 
ratio,  stage  adiabatic  efficiency,  and  equivalent 
temperature  ratio  for  a  particular  stage  from  the  1fv;.uted 
stage  characteristic  curves.  The  equivalent  pressure 
ratio,  lilt  equivalent  temperature  ratio,  t,  and  stage 
adiabatic  efficiency,  n  have  been  expressed  in  terras  of 
the  stage  flow  coefficient  as  follows: 

2  3  4  _  5  6 

^2'*‘  ^  l1>3'*’  E  i<|>  +  F  G  life 

2  3  4  5  6 

n  =  Aj  +  Bj  .  +  C2  +  D2  (j>  +  E2  If  +  F2  1>  +  G2  4' 

♦ 

T  =  A3(j)  +  B3 

The  definitions  of  these  parameters  are  as  follows: 


(1)  flow  coefficient:  41 


*=V^tip 


(11)  equivalent  pressure  ratio 


*  = 


% 


'01 

0  (iTipj  LI 


P02 


roi 


(y-1)/y 


-  1 


+  1 


Y/(T-1) 


(111)  equivalent  temperature  ratio: 


where  subscript  D  Indicates  the  design  point. 
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(2) 


(3) 


(4) 


SUBROUTINE 

(1) 


It  should  be  noted  here  that  the  subroutine  WICSCC  is 
only  suitable  for  the  case  of  Test  Compressor  employed  in 
the  current  investtgation.  In  another  case,  a  replacement 
of  this  subroutine  is  necessary. 

Input  Variables: 

FAI  stage  flow  coefficient 

I STAGE  stage  number 

Output  Variables: 

SAI  equivalent  pressure  ratio 

ETA  stage  adiabatic  efficiency 

TAU  equivalent  temperature  ratio 

Usage: 

CALL  WICSP  (FAI,  SAI,  ETA,  TAU,  ISTAGE) 

UICGSL 


Description: 

The  subroutine  WICGSL  is  used  for  the  calculation  of 
single-phase  (gas)  flow  loss.  In  the  current  model, 
the  concept  of  the  equivalent  diffusion  ratio  by 
Lieblein  (Ref. 23)  and  Swan's  correlation  (Ref. 24) 
have  been  employed  in  order  to  estimate  the  blade  outlet 
flow  angle  and  loss  due  to  turbulent  flow  of  gaseous 
phase  over  the  rigid  blade  surface. 

Lieblein  has  show  that  the  design  point  loading  factor,  the 
Diffusion  Factor,  does  not  represent  a  suitable  criterion 
for  loading  at  off-design  conditions,  except  possibly  at 
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other  minimum  loss  points.  This  is  due  to  the  fact  that 
the  basic  derivation  of  the  Diffusion  Factor  has  been 
based  on  a  flow  model  which  corresponds  to  operation  at 
or  near  minimum  loss.  He  has  therefore  suggested  a 
generalized  loading  parameter.  This  parameter,  the  Equivalent 
Diffusion  Ratio,  is  based  on  the  ratio  of  the  maximum 
suction  surface  velocity  and  trailing  edge  velocity  for 
a  given  section  cascade.  Lieblein  has  deduced  an 
expression  which  approximates  this  velocity  ratio 
in  terms  of  measured  overall  pefforaaoGe.  The  Equivalent 
Diffusion  Ratio  is  suitable  for  correlation  of  low  speed 
data.  For  the  general  case  where  the  axial  velocity  ratio 
may  be  large,  such  as  in  a  rotor  or  stator  cascade,  the 
Equivalent  Diffusion  Ratio,  D^^,  has  been  defined  as  follows: 


COS02V 


■"eq  cose  iV 


J  1.12  +  k  (i-i*)  -1-0.61-^ 


(A. 3.1) 


rz  »  r^ 

where  K  *  tanSi  -  rp—  — •  tane2“  •  (1“  ) 

''zi  ''zi 

and  k  =  0.0117  for  the  NACA  65  (A^q)  blades  and  k  =  0.007 
for  the  circular-arc  blades.  The  Equivalent  Diffusion 
Ratio  at  minimum  loss,  Dgq*»  is  obtained  by  dropping  the 
term  representing  the  incidence  angle  effects,  that  is 
as  follows. 

D  *  - - 2i' 1.12  +  0.61  i2i-LL  ,  K  f  (A.  3.2) 

^  COSB.V,  o 

1  Z2 


The  wake  momentum  thickness  can  be  expressed  nondimensionally 
as  follows: 

cosg  1 
COS02 


1  _  (»C0S62 

c  “  2o 


where  c  is  the  chord  length  of  the  blades. 
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(A. 3.3) 


At  minimum  loss,  Eq.  (A. 3. 3)  yields 

f  • 

_  to)*C0Sg2  cose?* 

"  2a  cosgi* 


V 


(A. 3. 4) 


Also,  from  Eq.  (A. 3.3),  the  total  pressure  loss  coefficient  u,  can  be 
expressed  as  follows: 


0) 


2 

2o  cos6i 

^c'  COS32  cosBa 


(A.3.5) 


From  the  cascade  test  data,  the  deviation  angle,  6  ,  and  the  non-dimension- 

0 

al  wake  momentum  thickness,  —  ,  are  expressed  in  terms  of  the  D  ,  D  *, 

0  C  c\J  CH 

(—}*,  and  inlet  Mach  number,  N  ,  as  follows: 


6*  +  |6.40  -  9.45(Mi  -  0.60)j  .  AKl 


(J)*  +  (0.827M,  -  2.692Mi  -2.675M,)  AK2 

for  D„D„* 
eq  eq 


(A.  3.6) 
(A. 3.7) 


e 

'E 


(|)*+  (2.80M,  -  8.71m"  +  9.36mI) 

1  ★ 


AK2 


for  D, 


eq  eq 


(A. 3.8) 


Using  these  empirical  expressions,  the  air  angle  at  blade  outlet  and 
total  pressure  loss  coefficient  at  an  off-design  point  can  be  determined 
as  follows: 


(i)  Calculate  the  inlet  angle,  3i  ,  and  the  inlet  Mach  number,  Mx. 

(ii)  Calculate  the  Equivalent  Diffusion  ratio  at  minimum  loss,  Dgq** 
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1 

1 


Clii)  Calculate  the  nondimensional  wake  momentum 
thickness  at  minimum  loss,{-^)*  . 

(iv)  Assume  the  fluid  outlet  angle, (62),* 

a 

Cv)  Calculate  the  incidence  angle,  i ,  i=6  %*+1*. 

(vi)  Calculate  the  Equivalent  Diffusion  Ration  0 

eq . 

(vii)  Calculate  the  deviation  angle,5. 

(viii)  Calculate  the  fluid  outlet  angle, f 
(a2)c*  62*-«*  +  «• 

(ix)  Compare  the  assumed  value  of  fluid  outlet  angle, 

(62)a»  with  the  calculated  value  of  that,  (82)^ 
to  check  if  1(62)3  "  where  cis  the 

desired  accuracy.  Iterate  step  (iv)  to  step  (ix) 
until  satisfactory  accuracy  is  obtained. 

(x)  Calculate  the  nondimensional  wake  momentum  thickness, 
e 

c  * 

(xi)  Calculate  the  total  pressure  loss  coefficient  . 


Figure  (A. 3.1)  shows  the  flow  chart  of  the  calculation 
procedure  to  predict  the  outlet  angle  and  total  pressure 
loss  coefficient. 

The  program  also  includes  a  provision  for  modifying  the 
equations  given  in  Ref. 23  and  24.  Equations  (A.3.1), 

(A. 3. 2),  (A. 3. 6),  (A. 3. 7),  and  (A. 3. 8)  can  be  modified 
by  introducing  constants  AKl,  AK2,  and  AK3  as  follows. 


Fig.  A.  3. 1  Procedure  for  Prediction  of  Total  Pressure  Loss 
Coefficient 
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cosSa  V 


eq  cos, 


\  *22 


V-,  r  ,  1  •43  cos^s  ■) 

^  1.12  +  k  (i-i*)  +  0.61  — ^  K  ‘AKS 

’'za  L  a  J 


(A. 3.1)' 


cosea  V  r  cos^B  i 

^eq  “  viV  [^-12  +  0.61-— ^  AK3  (A.3.2)' 

4  =  &*  +  6.40  -  9.45  (Mj0.60) j  (Deq-Deq*)  •  AKl 


(A. 3.6)' 


0.  ,6. 


-'=  (7)*  +  (0.827H  -  2.692M2.2.695M3)  (D^„-D  *)  .  AK2 

1  11  ©4  cQ  I 

V  (*•’•'> 


j-‘  (|)*  t  (2.aOMj 


Input  Variables: 


8.71M2  +9.36M3)  (Dgq-Dgq*)2.AK2 
for  Dgq<Dgq*  (A.3.8)' 


OMEGAS  total  pressure  loss  coefficient 


SIGUMA  solidity 


BETAIS  blade  inlet  flow  angle  at  design  point 


BETA2S  blade  outlet  flow  angle  at  ddsign  point 


AINCIS  incidence  at  design  point 


ADEVIS  deviation  at  design  point 


AMACHl  blade  inlet  Mach  number 


blade  inlet  flow  angle 
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X 


(3) 


Mach  number  below  which  the  effect  of  Mach 
number  disappears  in  estimating  deviation 
angle.  The  value  of  0.6  is  recommended  by 
Swan  (Ref. 24). 

IDESIN  Index  for  design  point  calculation 

AKl  constant  in  Eq.(A.3.6)' 

AK2  constant  in  Eq.(A.3.7)‘  and  (A. 3. 8)' 

AK3  constant  in  Eq.(A.3.1)'  and  (A. 3. 2)' 

VZl  axial  velocity  at  blade  inlet 

VZ2  axial  velocity  at  blade  outlet 

URl  rotor  blade  speed  at  blade  inlet 

R1  radius  at  blade  inlet 

R2  radius  at  blade  outlet 

Output  Variables: 

DEQS  equivalentdiffusion  ratio  at  design  point,  0^^* 

DEQN  equivalentdiffusion  ratio  , 

SITACS  dimensionless  momentum  thickness  at  design 

point,  (4-)* 

SITACN  dimensionless  momentum  thickness, (4") 

BET2N  blade  outlet  angle 

0ME6AN  total  pressure  loss  coefficient 
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••  -.jfv  ' 


(4) 


Usage; 


CALL  WICGSL( OMEGAS,  SIGUMA,  BETIS,  BET2S,  AINCIS,  ADEVIS, 
AMACHl,  BETl,  DEQS,  DEQN,  SITACS,  SITACN. 
BET2N,  OMEGAN,  X  IDESIN,  AKl,  AK2,  AK3,  VZl, 
VZ2,  URl,  Rl.  R2) 


SUBROUTINE  WICSDL 


Description: 

The  subroutine  WICSDL  is  used  for  the  calculation  of  loss 
for  small  droplets  on  account  of  the  change  in  momentum 
thickness  of  boundary  layer  due  to  the  presence  of  such 
droplets. 

In  order  to  estimate  the  loss  pertaining  to  the  increase 
of  momentum  thickness  due  to  the  existence  of  small 
droplets  in  the  boundary  layer,  Soo's  boundary  layer 
analysis  for  a  gas>solids  suspension  is  introduced 
(Ref.  25).  In  an  isothermal  incompressible  system,  Soo 
has  derived  the  following  equation  for  suspended  particles 
under  the  assumption  that  the  number  of  collisions  among 
particles  is  negligible  when  compared  to  that  with  the 
wall , 


1  +  k  (A)V<. 

a  'x' 


(A. 3.9) 


where 


0-0225  (u^) 


0.1402  ^  Pp»^  +  0.0972 
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Neglecting  shear  due  to  impact  of  solid  particles,  Soo 
derived  the  following  equation. 


•i/s 

I  =  0.37  {^)  /  (1+1  •^42p  /po)  (A.3.10) 

AH  po 

The  boundary  layer  thickness, 6  ,  can  be  obtained  from 
Eqs.  (A. 3. 9)  or  (A.3.10).  In  the  present  model ,  Eq.  (A.3.10) 
was  used. 


The  momentum  thickness,  due  to  liquid  phase,  0p,  is 
given  by 


!  %. 

2 

m 

Ppo- 

^pw  1 

1  ^ 

1 

“p  J 

(l+m)  (2+m) 

.  '^Po  . 

'Up  -a+l 

r  \ 

-  p 

r  u  -  u  1 

Po  PW 

P  PW 

^Po 

"p  I 

r(|*  1)  .  r(a*i)  rtit  i)  .  r  l»+i) 


Hg+ct  2) 


r(Uat2) 


(A.3.10) 

where aand  m  are  constants  associated  with  distribution  of 
velocity  and  density  of  liquid  phase  in  the  boundary 
layer  namely 

“p  ■  V  *  '“p  ■ 

*  V  ’“p*'  ‘’px’ 
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For  the  case  of  solid,  spherical  particles  of  100  and 
200pm  in  diameter  in  air  moving  at  room  conditions  with 
a  velocity  of  50  to  100  fps,  Soo  has  obtained  the 
following  values  for  the  various  quantities. 


n  =  7,  m  =  1.25,  a  =  2.30, 


U  -U  P 

.  0.812,  ^  .  1.451 

%  '=P. 


Utilizing  the  above  values,  Eq.  (A.3.10)  becomes 


=  0.1402 


Following  the  procedure  of  Lieblein,  the  total  pressure 
loss  coefficient  due  to  the  increase  of  momentum  thickness 
D  >  because  of  the  existence  of  small  droplets  in  the 
boundary  layer  over  rotor  blade  surface,  cdq  can  be 
expressed  as  follows: 


2  0 

cos3i' 

c  J 

COSB2 

cosBz, 

Similarly,  the  total  pressure  loss  coefficient  due  to  the 
increase  of  momentum  thickness,  0_  q,  because  of  the  exist- 
ence  of  small  droplets  in  the  boundary  layer  on  stator 
blade  surface  io-  can  be  expressed  as  follows: 


2o 

f  cosa2'| 

c  J 

COSas 

[  COSOs J 
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The  stagnation  pressure  losses  corresponding  to  <^9^^ 

and  w  can  be  written  as  follows. 

0.S 

^^e.R  "  iP^Ve.R 


1  ^ 


Thus,  the  total  pressure  loss  across  a  stage  due  to  the 
increase  of  momentum  thickness  because  of  the  existence  of 
small  droplets  in  a  boundary  layer  is  given  by 

^^9  ^^e,R  ^^6,S 


Input  Variables 

CHORD 

chord  length 

SIGUMA 

solidity 

BETAl 

blade  inlet  flow  angle 

BETA2 

blade  outlet  flow  angle 

UG 

average  flow  velocity 

RHOG 

density 

AMASSW 

mass  flow  rate 

AREA 

flow  area 

VZ 

axial  velocity 

IPRINT 

index  for  printout 

Output  Variables: 

OMEGAP 


total  pressure  loss  coefficient 


SUBROUTINE  WICSTL 


(1)  Description: 

The  subroutine  WICSTL  is  used  for  the  calculation  of 
loss  due  to  Stokesian  drag  of  droplets  in  the  free 
stream  of  blade  passage. 

In  view  of  the  assumption  pertaining  to  motion  of  small 
droplets  (with  zero  relative  velocity  with  respect  to 
gas  phase),  the  total  pressure  loss  due  to  Stokesian 
drag  becomes  zero  for  small  droplets. 

For  large  droplets,  the  model  introduced  is  described 
below. 

The  large  droplets  move  with  substantial  relative  velocity 
with  respect  to  the  gas  phase  and  have  equal  probability 
of  motion  in  all  directions.  However,  regarding  the 
latter  aspect,  the  droplets  are  divided  into  two 
subclasses  with  a  direction  of  motion  for  each  class, 
specified  with  respect  to  the  gas  phase  velocity  vector. 

The  number  of  droplets  impacting  on  the  blade  surface 
is  then  proportional  to  the  blade  surface  area  projection 
normal  to  the  velocity  vectors  for  the  two  subclasses 
of  droplets. 

Referring  to  Fig.  A. 3. 2.,  the  two  subclasses  are  shown  as 

(1)  and  (2)  which  have  direction  of  motion  given  by  Yi,and 

Y  relative  to  the  gas  phase  velocity  vector.  The  total 
2 

number  of  droplets  in  subclass  (1)  is  proportional  to 

angle  2T^  and  those  in  subclass  (2)  is  proportional  to  angle 

2Yj  (180  -  2Yj).  The  relative  velocity  between  the  gas 

phase  and  droplets  of  subclass  (1)  is  given  by  the  difference 

between  and  the  component  of  (the  velocity  of  drop- 
Qi  P 
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B 

k 


Fig.  A.3.2  Model  for  Motion  of  Large  Droplet 
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lets  in  subclass  (1)  in  the  direction  of  Vg^ .  Similarly 

the  relative  velocity  between  the  gas  phase  and  the  droplets 

of  subclass  (2)  is  given  by  the  difference  between 

and  the  component  of  in  the  direction  of  V  .  Thus 

P2  9x 

for  droplets  of  subclass  (1)  the  relative  velocity  is 
given  by  the  relation, 

Vg.  -  r, 

and  for  droplets  of  subclass  (2),  the  relative  velocity  is 
given  by  the  relation, 

\  ■ 

In  Fig.  A.3>2.  the  blade  outlet  conditions  are  also  shown. 

As  at  the  blade  inlet  section  the  relative  velocities  between 
the  gas  phase  and  droplets  of  subclasses  (1)  and  (2)  may 
be  written  as  follows: 

Vg^  -  Vp^  cos  6i  for  subclass  (1),  and 

-  V„  cos  62  for  subclass  (2). 

92  P2 

where  61  is  the  inclination  of  the  mean  velocity  vector  for 
subclass  (1)  and  62  ,  the  inclination  of  the  mean  velocity 
vector  at  ("utlet,  designated  Vg^  .  Once  again,  at  the  out¬ 
let  section,  the  number  of  droplets  in  subclass  (1)  is 
proportional  to  angle  26i,  and  the  number  of  droplets  in 
subclass  (2)  is  proportional  to  angle  262,  or  (180-26i). 

It  is  clear  that  the  total  number  of  droplets  is  divided 
into  two  new  subclasses  at  the  outlet,  based  on  the  directions 
of  motion  of  droplets  relative  to  the  gas  phase  vel cocity. 

The  two  subclasses  at  the  outlet  are  the  output  from  the 
blade  row  for  the  given  initial  and  operating  conditions. 
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Based  on  the  foregoing  model  of  motion  of  large  droplets 
the  total  pressure  loss  coefficient  due  to  the  Stokesian 
drag  of  large  water  droplets  in  a  rotor  passage,  w.  »,  can 
be  estimated  as  follows: 


The  Stokesian  drag  of  water  droplets  across  a  rotor  blade 
is  given  by 

D  =  CnTP„  (W„  -  )Vn.  ^ 

D2  ^gi  '  gi  Pi  p  d,r 


Where  and  Wp^  are  relative  velocities  of  gaseous  phase 
and  droplets  at  rotor  inlet,  Ap,  the  project  area  of  a 
droplet,  and  the  number  of  droplets  that  exist  in 

rotor  passage.  Referring  to  Fig.  A. 3. 3,  the  Stokesian 
drag,  0,  can  also  be  written  as 


D  = 


r 

01 


where  P  ^  and  P  ^  are  total  pressure  at  station  (1)  and 
01 »'  02  >“ 

(2)  in  rotor  coordinate  system,  and  Aj^  is  the  average  flow 
area  in  a  rotor  blade  passage. 


From  the  above  equations,  the  total  pressure  loss  across 
a  rotor  blade  due  to  the  Stokesian  drag,  AP_  ^  becomes 

Po  D  =  Cn  4  P.,  (W„  -  w„  AN.  b/Ad  =  D/Ad 

s,K  u  L  9i  9i  Pi  P 


By  definition,  the  total  pressure  loss  coefficient  across 
a  rotor  blade  due  to  Stokesian  drag,  can  be  obtained 
as  follows: 

^.R  '  Siij. '  -  “P.’ 
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Hub 


Fig.  A.  3.3  Control  Volume  ocroes  o  Blade 


m 


Similarly,  the  total  pressure  loss  across  a  stator  blade 
due  to  Stokesian  drag,  Ap  becomes 

S 

^  “  Cn  5  Pn  (V"  -  VM  A  N .  -/A<. 
s,5  D  Z  gj'  ga  P2  p  d,S  S 

and  the  total  pressure  loss  coefficient  across  a  stator  blade 
due  to  the  Stokesian  drag,  ^  ,  can  be  obtained  as  follows: 

“s.S  =  ^  *;,>  Vd.s^*s 

Thus,  the  total  pressure  loss  across  a  stage  due  to  Stokesian 
drag  is  given  by 


4P3  =  4P3,r  t  iPj.s 


Input  Variables: 


I STAGE 


I ROTOR 


WMASS 


BETAl 

BETA2 


stage  at  which  performance  calculation  is  carried 
out 

index  for  rotor  or  stator 

nomirrill  droplet  diameter 

relative  velocity  at  rotor  inlet 

relative  velocity  at  rotor  outlet 

relative  velocity  between  gas  phase  and  droplet 

absolute  velocity  at  stator  inlet 

absolute  velocity  at  stator  outlet 

mass  flow  rate  of  iroplet 

axial  velocity 

station  number  (Fig. 5.1) 

relative  flow  angle  at  rotor  inlet 

relative  flow  angle  at  rotor  outlet 


ALFA2  absolute  flow  angle  at  stator  inlet 

ALFA3  absolute  flow  angle  at  stator  outlet 

MMASS  mass  flow  rate  of  mixture 

Output  Variables: 

DELVU2  relative  velocity  between  gas  phase  and  large 
droplet  In  subclass  (1)  at  blade  outlet 

DELVL2  relative  velocity  between  gas  phase  and  large 
droplet  In  subclass  (2)  at  blade  outlet 

OMEGRU  total  pressure  loss  coefficient  across  rotor 

due  to  Stokesian  drag  in  subclass  (1) 

OMEGRL  total  pressure  loss  coefficient  across  rotor 

due  to  Stokesian  drag  In  subclass(2) 

OMEGSU  total  pressure  loss  coefficient  across 

stator  due  to  Stokesian  drag  In  subclass  (1) 

OMEGSL  total  pressure  loss  coefflclect  across  stator 

due  to  Stokesian  drag  In  subclass  (2) 

DRAGRU  drag  force  due  to  large  droplet  In  subclass(l) 

ORAGRL  drag  force  due  to  large  droplet  In  subclass(2) 

DRAGSU  drag  force  due  to  small  droplet  In  subclass(l) 

DRAGSL  drag  force  due  to  small  droplet  In  subclass  (2) 

REAVE  average  Reynolds  number 

(4)  Usage: 

CALL  WICSTL  (ISTAGE,  IROTOR,  DAV,  W1,W2,  DELV,  V2,  V3, 
WMASS,  VZ,  N.  BETAl,  BETA2,  ALFA2,  ALFA3, 

MMASS.  DELVU2.  DELVL2,  OMEGRU.  OMEGRL.  OMEGSU. 
OMEGSL.  DRAGRU.  ORAGRL.  DRAGSU.  DRAGSL.  REAVE) 
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SUBROUTINE  WICFML 


(1) 


Description: 

The  subroutine  WICFML  is  used  for  the  calculation  of  loss 
due  to  film  formed  on  blade  surface  when  large  droplets 
are  present  either  by  themselves  or  along  with  small 
droplets. 

The  momentum  gained  by  the  thick  water  film  on  the  rotor 
blade  surface  is  given  by  per  unit  blade 

length,  where  is  the  mass  flow  rate  of  water  film 

on  the  rotor  blade  per  unit  blade  length  and  ''film 
the  mean  velocity  of  water  film. 

Considering  the  difference  in  viscosity  between  the  two 
phases,  the  velocity  of  water  film  can  be  estimated  as 
follows: 

''film  2  *'g  pj 

where  is  the  mean  velocity  of  gaseous  phase,  and 
Pg  and  pj  are  the  viscosities  of  gaseous  and  liquid 
phases,  respectively. 

The  foregoing  momentum  can  be  transformed  into  an 
equivalent  drag  coefficient  as  follows. 

"  '"film  ''film4  ^gi^ 

where  pg^  is  blade  inlet  density  of  gaseous  phase,  and  c 
is  the  chord  length  of  the  blade. 

The  drag  coefficient  can  then  be  expressed  in  the  form  of 
a  total  pressure  loss  coefficient  as  follows: 
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where  s  is  the  blade  pitch  and  ^  is  mean  flow  angle. 

Noting  that  V_  «  vL  cos  one  obtains  the  relation, 

^  z  g  m 

namely 


AP. 


A 


Pn  V 
gi 


=  c. 


(f)- 


cos’  s 


m 


Since  Wg^  =  V^/cos6i,  the  total  pressure  loss  coefficient 
due  to  the  momentum  gained  by  the  thick  film  on  the  rotor 
blade  surface  can  be  written  as  follows: 


(i»x 


=  APx/ 


f'? 


'Of 


COS^  Pi 

COS^  B 
m 


(2)  Input  Variables: 

WGl  flow  velocity  at  blade  inlet 

W62  flow  velocity  at  blade  outlet 

FMASS  mass  flow  rate  of  water  film  on  blade 

surface  per  unit  blade  length 

RH061  density 

CHORD  chord  length 

SIGUMA  solidity 

BETAl  blade  inlet  flow  angle 

BETA2  blade  outlet  flow  angle 

(3)  Output  Variables: 

CDF  drag  coefficient 

OMEGAF  total  pressure  loss  coefficient 

(4)  Usage: 

CALL  UICFML  (WG1,WG2,  FMASS,  RHOGl,  CHORD,  SIGUMA,  BETAl, 
BETA2,  CDF,  OMEGAF) 
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SUBROUTINE  W.ICRSL 


I  - 

(1)  Description: 

j  The  subroutine  WTCRSL  is  used  for  the  calculation  of 

i  loss  due  to  the  rough  surface  when  large  droplets  are 

i  presented  either  by  themselves  or  along  with  small 

I  droplets. 

I 

i  Using  the  experimental  results  on  pipes  roughened  with 

sand,  L.  Prandtl  and  H.  Schlichting  carried  out  a 
!  correlation  to  obtain  the  friction  coefficient  on  a 

rough  place  (Ref.  26).  The  correlation  was  based  on 
the  logarithmic  velocity  distribution  law  for  rough 
pipes  in  the  form,  namely 

=  2.5  ln(()  +  B 


where  v*  is  friction  velocity;  k  is  roughness  of  surface, 
and  B  is  a  roughness  function  which  depends  on  the 
roughness  parameter,  v*k/r. 

In  the  completely  rough  regime,  they  obtained  the  following 
relation  for  the  drag  coefficient  for  a  plate. 

Co,  -  (1.81  t  1.62  loSjo^)-^-* 

In  the  present  case,  x  is  replaced  by  the  chord  length,  c, 
and  the  surface  roughness  k  is  assumed  to  be  the  same  as  the 
order  of  mean  diameter  of  large  droplets. 


Thus,  the  total  pressure  loss  coefficient  due  to  turbulent 
friction  over  a  rough  film  surface  on  a  rotor  becomes  the 
following. 


(2' 


Input  Variables: 


SIGUMA  solidity 

BETA!  blade  inlet  flow  angle 

BETA2  blade  outlet  flow  angle 

CHORD  chord  length 

DL  droplet  diameter 

(3)  Output  Variables: 

CDR  drag  coefficient 

OMEGAR  total  pressure  loss  coefficient 

(4)  Usage: 

CALL  WICRSL  (SIGUMA,  BETAl,  BETA2,  CHORD,  DL,  CDR, 
OMEGAR) 


SUBROUTINE  WICVT 

(1)  Description: 

The  subroutine  WICVT  is  used  for  the  calculation  of 
velocity  triangle  components  and  angles.  Typical 
velocity  diagram  for  a  compressor  stage  is  presented 
in  Fig.  A.2.1. 

(2)  Input  Variables; 

ISTAGE  stage  at  which  performance  calculation  is 

carried  out 

ASPEED  acoustic  speed 
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ALFAl 

VZ 


absolute  flow  angle  at  rotor  inlet 
axial  velocity 

I 

AKl  constant  in  Eq.  (A. 3. 6) 

AK3  constant  in  Eq.  (A.3.1)'  and  (A. 3. 2)' 

(3)  Output  Variables: 

VI  absolute  velocity  at  rotor  inlet 

VSl  tangential  component  of  VI 

WSl  tangential  component  of  W1 

BETAl  relative  flow  angle  at  rotor  inlet 

W1  relative  velocity  at  rotor  inlet 

BETA2  relative  flow  angle  at  rotor  outlet 

US2  tangential  component  of  W2 

VS2  tangential  component  of  V2 

ALFA2  absolute  flow  angle  at  rotor  outlet 

W2  relative  velocity  at  rotor  outlet 

VZ  absolute  velocity  at  rotor  outlet 

ALFA3  absolute  flow  angle  at  stator  outlet 

V3  absolute  velocity  at  stator  outlet 

(4)  Usage: 

CALL  WICVT  (ISTAGE,  ASPEED,  ALFAl,  VZ,  VI,  VSl,  WSl, 
BETAl,  Wl,  BETA2,  WS2,  VS2,  ALFA2,  W2,  V2, 
ALFA3,  V3,  AKl,  AK3) 
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SUBROUTINE  W.ICCEN 


(1)  Description: 

The  subroutine  WICCEN  is  used  for  the  calculation  of 
spanwise  replacement  of  droplets  due  to  centrifugal 
action. 


Three  forces  act  on  a  droplet  moving  through  a  fluid: 

(1)  the  external  force  consisting  of  gravitational  and 
and  centrifugal  forces;  (2)  the  buoyancy  force,  which 
acts  parallel  to  the  external  force,  but  in  the  opposite 
direction;  and  (3)  the  drag  force,  which  appears  whenever 
there  is  relative  motion  between  the  droplet  and  the 
fluid,  and  acts  parallel  to  the  direction  of  motion  but 
in  the  opposite  direction.  In  the  present  case,  the 
direction  of  motion  of  a  droplet  relative  to  the  fluid 
is  not  parallel  to  the  direction  of  the  external  and 
buoyant  forces,  and  therefore  the  drag  force  makes  an 
angle  with  the  other  two  forces.  However,  under  the 
one-dirnensional  approximation, .  the  lines  of  action  of 
all  forces  acting  on  the  droplet  are  co-1 inear  and  there¬ 
fore  the  forces  may  be  added  in  obtaining  a  balance  of 
momentum,  as  follows: 


m  ^ 
9c 


F 


D 


where  F^,  F^^  and  F^  are  the  external,  buoyancy  and  drag 
forces  respectively. 


The  external  force  can  be  expressed  as  the  product  of  mass 
and  acceleration,  a^,  of  the  droplet  due  to  this  force,  and 
therefore 
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In  the  present  case,  because  of  the  large  rotor  speeds, 
the  centrifugal  acceleration  is  far  larger  than  the 
gravitational  acceleration.  Thus 

a„  =  rto* 
e 

where  r  is  the  radius  and  to,  the  angular  velocity.  The 
acceleration  can  also  be  written  as  follows: 

'V'- 

where  V.  is  the  circumferential  velocity  of  the  droplet. 

For  droplets  passing  through  a  rotor  blade  passage,  the 
circumferential  component  of  the  relative  velocity,  W.  , 

V 

should  be  used  in  place  of  Vg  .  When  there  is  a  large 
change  in  whirl  velocity  between  the  inlet  and  outlet 
of  a  blade  row,  a  mean  value  of  velocity  may  be  more 
applicable. 

The  buoyancy  force  is,  by  Archimedes'  Principle,  the 

product  of  the  mass  of  the  fluid  displaced  by  the  droplet 

and  the  acceleration  from  the  external  force.  The  mass 

of  fluid  displaced  is  (m/p^)p_,  where  p^  is  the  density 

w  g  w 

of  water  and  p^  is  the  density  of  the  surrounding  fluid. 

The  buoyancy  force  is  then  given 

fb  '"'Ve/Vc 

The  drag  force  is  expressed  by  the  relation, 

Fd 

2  Pc 

where  Cg  is  the  drag  coefficient  and  Ap  is  the  projected 
area  of  the  droplet  measured  in  a  plane  perpendicular  to  the 
direction  of  motion  of  the  droplet.  The  drag  coefficient 
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Cp  can  he  expressed  in  a  general  form  as  follows: 

Cp  =  hi/Re'‘ 

where  Re  is  the  Reynolds  number  based  on  relative  velocity 
between  gas  and  droplet.  The  constants  bi  and  n  are 
as  follows. 

bj  =  24.0,  n  =  1.0  when  Re  <  1.9 

bj  =18.5,  n  =  0.6  when  1.9  <Re  <  500 

bi  =  0.44,  n  =  0.0  when  500  <  Re  <200,000. 

The  equation  of  droplet  motion  then  becomes  the  following: 

||  =  A/r  -  B  u"'" 

where 

A  =  (Wg)3^g.(l-Pg/pJ, 

B  =  3  u\  Pg'""/4P^  and 

0  being  the  average  droplet  diameter.  Over  a  small  time 
interval,  the  equation  of  motion  can  be  written  as  follows 

Au  =  (A/r  -  B  u*'”)  At 

This  equation  can  be  used  to  determine  the  radial  location 
of  a  droplet  in  a  stage  as  follows: 

(i)  Select  the  initial  values  for  Ujand  ri. 

(ii)  Calculate  the  Reynolds  number  to  determine 
the  values  of  biand  n. 

(iii)  Calculate  A  and  B. 
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(iv) 

(v) 


Calculate  the  change  of  u  during  time  interval  At. 
Calculate  the  new  velocity  U2. 

U2  =  Ui  +  Au 


(vi)  Calculate  the  change  in  location  of  droplet 
in  terms  of  Ar. 

Ar  =  (uj  +  U2)  /2.0  .  At 

(vii)  Calculate  the  new  radial  location. 
r2  =  ri  +  Ar 

(viii)  Repeat  the  calculation  for  new  value  of  U2 

and  r2and  progressively  extend  the  calculation. 


The  time  interval  should  be  sufficiently  small  in  order 
to  obtain  reasonable  accuracy.  As  stated  in  Section  2.1.3 
in  Chapter  II  of  this  Report,  the  length  between  the 
leading  and  trailing  edges  of  a  blade  is  divided  into 
ten  steps.  The  time  interval  At  is  then  given  by  the 
relation,  namely 


At 


_  Chord  1 
V  ^  10 


where  V  is  the  velocity  of  moisture  in  the  blade  passage. 


Input  Variables: 

RZERO  droplet  spanwise  location  at  rotor  inlet 

UZERO  droplet  spanwise  velocity  at  rotor  inlet 

DD  droplet  diameter 

VZ  axial  velocity 

DELZZ  axial  length  of  a  stage 

ALFAAV  average  flow  angle 

FN  rotor  blade  rotational  speed 
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IRS 

index  for  rotor  or  stator 

RHOGAS 

density 

RHUB 

radius  at  hub 

XG 

mass  fraction  of  gas  phase 

XA 

mass  fraction  of  dry  air 

XVV 

mass  fraction  of  vapor 

XCH4 

mass  fraction  of  methane 

RTIPIN 

radius  at  blade  tip 

(3)  Output  Variables: 

R2  droplet  spanwise  location  blade  outlet 

U2  droplet  spanwise  velocity  at  blade  outlet 

ITIP  index  for  droplet  spanwise  location 

VZTIME  time  in  which  flow  pass  through  a  stage 

(4)  Usage: 

CALL  WICCEN  (RZERO,  VZERO,  DD,  VZ,  DELZZ,  ALFAAV,  FN.IRS, 
RHOGAS,  RHUB,  R2,  U2,  ITIP,  VZTIME,  XG,  XA, 

XVV,  XCH4,  RTIPIN) 

SUBROUTINE  WICDMS 

(1)  Description: 

The  subroutine  WICDMS  is  used  for  the  calculation  of  amount 
of  small  droplets  which  is  centrifuged. 

(2)  Input  Variables: 

IPRINT  index  for  printout 

I RAD  index  for  spanwise  location 
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AMASWl  mass  flow  rate  of  water  at  rotor  inlet 
AMASWT  mass  flow  rate  of  droplet 

AMASW  mass  flow  rate  of  droplet 

R1  droplet  spanwise  location  rotor  inlet 

R2  droplet  spanwise  location  at  rotor  outlet 

STAREA  streamtube  area 

RSTAVE  radius  of  streamtube  at  its  center 

RTIP  radius  at  blade  tip 

(3)  Output  Variables: 

DMIN  amount  of  water  that  is  centrifuged  and  enters 

into  a  streamtube 

DMOUT  amount  of  water  that  is  centrifuged  and 

leaves  from  a  streamtube 

AfiASW2  mass  fraction  of  water  at  rotor  outlet  after 
correction  for  centrifugal  action 

DELMAS  net  amount  of  water  that  is  centrifuged 

(4)  Usage: 

CALL  WICDMS  (IPRINT,  IRAD,  AMASWl,  AMASWT,  AMASW,  Rl, 

R2,  STAREA,  RSTAVE,  RTIP,  DMIN,  DMOUT, 

AMASW2,  DELMAS) 


SUBROUTINE  WICDML 

(1)  Description; 

The  subroutine  WICDML  is  used  for  the  calculation  of  amount 
of  large  droplets  which  is  centrifuged. 
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(2) 


Input  Variables; 


IPRINT  index  for  printout 

IRAD  index  for  spanwise  location 

AMASWl  mass  flow  rate  of  water  at  rotor  inlet 

AMASWT  mass  flow  rate  of  droplet 

AMASW  mass  flow  rate  of  droplet 

R1  droplet  spanwise  location  rotor  inlet 

R2  droplet  spanwise  location  at  rotor  outlet 

STAREA  streamtube  area 

RSTAVE  radius  of  streamtube  at  its  center 

RTIP  radius  at  blade  tip 

(3)  Output  Variables: 

DMIN  amount  of  water  that  is  centriHiged  and  enters 

into  a  streamtube 

DMOUT  amount  of  water  that  is  centrifuged  and  left 

from  a  streamtube 

AMASW2  mass  fraction  of  water  at  rotor  outlet  after 

correction  for  centrifugal  action. 

DELMAS  net  amount  of  water  that  is  centrifuged 

(4)  CALL  WICOML  (IPRINT,  IRAD,  AMASWl,  AMASWT,  AMASW,  Rl,  R2, 

STAREA,  RSTAVE,  RTIP,  DMIN,  DMOUT,  AMASW2, 
DELMAS) 

SUBTROUTINE  WICDRG 

(1)  Description: 

The  subroutine  WICDRG  is  used  for  the  calculation  of  drag 
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force  on  droplet. 


(2)  Input  Variables: 

D  droplet  nominal  diameter 

DELVl  relative  velocity  between  droplet  and  gas 

phase  at  blade  Inlet 

RHGASl  density  of  gas  phase  at  blade  Inlet 

RHGAS2  density  of  gas  phase  at  blade  outlet 

(3)  Output  Variables; 

CD2  drag  coefficient 

DELV2  relative  velocity  between  droplet  and  gas 

phase  at  blade  outlet 

DRAGl  drag  force 

RE  Reynolds  number 

(4)  Usage: 

CALL  WICDRG  (D,  DELVl,  RHGASl,  RHGAS2,  CD2,  DELV2,  DRAGl, 
RE) 


SUBROUTINE  WICMAC 

(1)  Description: 

Subroutine  WICMAC  calculates  the  Mach  number  In  the 
gas-water  droplet  mixture.  First  the  acoustic  speed  In 
gaseous  phase  Is  determined  by  Iteration  as  follows: 
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Assume  Mach  number  and  calculate  static  temperature  and 
density. 


t  =  (1  M^ )  '^  T 

^  Q1 

P  =  (1 

Calculate  acoustic  speed  in  gaseous  phase 

ag  •  (yRtggj'’-^ 


Calculate  the  axial  velocity 
=  ifi/pA 

Calculate  absolute  velocity 

Vi  =  V3/COS  ai 
Calculate  Mach  number 

=  V,/ag 

Compare  the  calculated  Mach  number  with  the  assumed  value 
in  (i).  Iterate  steps  (i)  to  (v)  until  the  desired 
accuracy  is  obtained.  After  determing  the  acoustic  speed 
in  gaseous  phase,  Fucnction  WICASD  is  called  to  determine 
the  acoustic  speed  in  droplet-laden  gas  flow. 

Input  Variables: 

I STAGE  stage  number 

mixture  mass  flow  rate 


AMASSM 


TOIG 


total  temperature  of  gaseous  phase 

PRES  total  pressure 

XWl  total  water  content 

ALFA  stator  outlet  angle  of  the  previous  stage 

RMIX  gas  content  of  gaseous  phase 

CPMIX  specific  heat  at  constant  pressure  for 

gaseous  phase 

(3)  Output  Variables: 

M  Mach  number 

V2  axial  velocity 

C  acoustic  speed  in  mixture 

(4)  Usage: 

CALL  WICMAC  (ISTAGE,  AMASSM,  TOIG,  PRES,  M,  VZ,  C,  XWl, 
ALFA,  RMIX,  CPMIX) 


FUNCTION  WICASD 


(1) 


Description: 

Function  WICASD  calculates  the  acoustic  speed  in  droplet 
laden  gas  flow.  The  following  equation  is  used  (Ref. 27) 


(1-0  )p  +0  0 
'  v'^g  v^w 


1-0. 


n  a 
^9  9 


P  a‘ 
^w  w 


where 

a^  =  acoustic  speed  in  gaseous  phase 
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\ 

I 


=  acoustic  speed  in  water 
Pg  =  density  of  gaseous  phase 
=  density  of  water 

Oy  =  particulate  liquid  volume  fraction 
=  particulate  liquid  mass  fraction 

"v  “  Vg/  V^w'^-Og) 

V 

(2)  Input  Variables: 

XW  total  water  content 

RHOG  density  of  gas  phase 

CG  acoustic  speed  of  gaseous  phase 

(3)  Output  Variable: 

WICASD  acoustic  speed  in  gas-water  droplet  mixture 

(4)  Usage: 

WICASD  (XU,  RHOG,  CG} 

SUBROUTINE  HICBOA 

(1)  Description: 

Subroutine  WICBOA  calculates  the  blade  outlet  flow  angle 
based  on  Swan's  correlation  curves  (Ref. 24).  Swan's  curves 
and  the  concept  of  equivalent  diffusion  ratio  are  also 
described  in  Subroutine  WICGSL. 
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(2) 


Input  Variables: 


OMEGAS  total  pressure  loss  coefficient  at  design 

point 

SIGUMA  solidity 

BETIS  blade  inlet  angle  at  design  point 

BET2S  blade  outlet  angle  at  design  point 

AINCIS  incidence  at  design  point 

AOEVIS  deviation  at  design  point 

AMACHl  blade  inlet  Mach  number 

BETl  blade  inlet  flow  angle 

(3)  Output  Variables: 

DEQS  equivalent  diffusion  ratio  at  design  point 

DEQN  equivalent  diffusion  ratio 

SITACS  ratio  of  wake  momentum  thickness  to  chord 
design  point 

SITACN  ratio  of  wake  momentum  thickness  to  chord 

BET2N  blade  outlet  angle 

(4)  Usage: 

CALL  WICBOA  (OMEGAS,  SIGUMA,  BETIS,  BETZS,  AINCIS,  ADEVIS, 
AMACHl,  BETl,  DEQS,  DEQN,  SITACS,  SITACN,  BET2N) 


SUBROUTINE  WICEDD 

(1)  Description: 

Subroutine  WICEDD  is  called  in  Subroutine  WICBOA  and  WICGSL. 
The  equivalent  diffusion  ratio  at  design  point,  D*^,  and  the 
ratio  of  wake  momentum  thickness  to  chord  at  design  point, 
are  obtained  from  the  following  equations: 
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(1.12  +  0.61 


K)  •  AK3 


cosBa  V^j 
cosFT  V~ 

Z2 


(li*  COS62* 

— rs — 


COS62* 
cosBa*  / 


where 


K  *  tan  6* 
1 


Input  Variabl 

es: 

AK3 

constant,  normally  one 

VZl 

axial  velocity  at  blade  inlet 

VZ2 

axial  velocity  at  blade  outlet 

URl 

rotor  blade  speed  at  rotor  inlet 

Rl 

radius  at  blade  inlet 

R2 

radius  at  blade  outlet 

BETIS 

blade  inlet  flow  angle  at  design  point 

BET2S 

blade  outlet  flow  angle  at  design  point 

SIGUMA 

solidity 

OMEGAS 

total  pressure  loss  coefficient  at  design 
point 

Output  Variables: 

DEQS  equivalent  diffusion  ratio  at  design  point 

SITACS  ratio  of  wake  momentum  thickness  to  chord 

at  design  point 


Usage: 


CALL  WICEDO  (AK3,  VZl,  VZ2,  URl,  Rl,  R2,  BETIS,  BET2S 
SIGUMA.  OMEGAS,  DEQS.  SITACS) 


FUNCTION  WICED 


(1)  Description: 

Function  WICED  is  called  in  Subroutines  WICBOA  and  WICGSL.  The 
equivalent  diffusion  ratio  is  obtained  from  the  following 
equation. 


-  COSB, 
cosBi 


1.12  +  k  (i-i*)^’"**  +  0.61  kI.  AK3 

a 


where 


K 


tanBi- 


Ll 

ri 


tanBi 


(1  -7f) 


and  where  k  =  0.0117  for  NACA  65  (Ajo)  blades  and  k  =  0.007  for 
the  C4  airfoils. 


(2)  Input  Variables: 

AK3  constant,  normally  one 
VZl  axial  velocity  at  blade  inlet 
VZ2  axial  velocity  at  blade  outlet 
URl  rotor  blade  speed  at  rotr  inlet 
Rl  radius  at  blade  inlet 
R2  radius  at  blade  outlet 
BETl  blade  inlet  flow  angle 
BET2  blade  outlet  flow  angle 
SI6UMA  solidity 

AINCIS  incidence  at  design  point 
AINCI  incidence 

(3)  Output  Variable: 

WICED  equivalent  diffusion  ratio 
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(4) 

FUNCTION 

(1) 


(2) 


(3) 

(4) 


Usage; 

WICED  (AK3,  VZl.  VZ2,  URl,  Rl,  R2,  BETl,  BET2,  SIGUMA, 
AINCIS,  AINCI) 


WICMTK 


Description: 


Function  WICMTK  is  called  in  Subroutines  WICBOA  and 
WICGSL.  The  ratio  of  wake  momentum  thickness  and  chord 
are  obtained  from  the  following  equations. 


=  (f)*  +  (0.827  Ml  +  2.675  M  )  AK2 


for  D  >  D  * 
eq  eq 


6 

C 


(7)*  +  (2.80  Ml  -  8.71  mJ+9.36  mJ)  (D^„  -D  *)^  .  AK2 

6v^  CvJ 


for  D„_<  D.„* 
eq  eq 


Input  Variables: 

AK2  constant,  normally  one 

SITACS  ratio  of  wake  momentum  thickness  to  chord  at 

design  point 

AMACHl  blade  inlet  Mach  number 

DELDEQ  difference  between  equivalent  diffusion  ratio 

and  equivalent  diffusion  ratio  at  design  point. 

Output  Variables: 

WICMTK  ratio  of  wake  momentum  thickness  to  chord 
Usage: 

WICMTK  (SI.,  AMACHl,  DELDEQ,  AK2) 
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FUNCTION  WICLOS 


Description; 

Function  WICLOS  is  called  in  Subroutine  WICGSL  and  calculates 
the  total  pressure  loss  coefficient  from  the  following 
equation: 


—  _  /^\  /COs3i\2 

“  ~  'c^  C0se2  cosga' 


Input  Variables: 

BETl  blade  inlet  flow  angle 

BET2  blade  outlet  flow  angle 

SIGUMA  solidity 

SITA  ratio  of  momentum  thickness  to  chord 


Output  Variable; 


WICLOS 


Usage: 


total  pressure  loss  coefficient 


WICLOS  (BETl.  BETZ,  SIGUMA,  SITA) 


SUBROUTINE  WICIRS 


Description: 

Subroutine  WICIRS  is  called  at  outlet  of  rotor  and  performs 
the  calculation  of  droplet  impingement  and  rebound  in  rotor 
passage  for  small  droplet. 

Input  Variables: 


I STAGE 
RTIPIN 


stage  number 

blade  tip  radius 

mass  fraction  of  small  droplet 


XG 

mass  fraction  of  gaseous  phase 

RHOGl 

density  of  gaseous  phase 

BETAl 

rotor  inlet  relative  flow  angle 

Wl 

rotor  inlet  relative  velocity 

(3) 

Output 

Variables: 

WWl 

amount  of  water  that  impacts  stagnation 
region  of  blade 

WW2 

amount  of  water  that  impact  aft  of  blade 

WW 

total  amount  of  water  that  impact  blade 

(4) 

Usage: 

(ALWICIRS  (ISTAGE.  RTIPIN,  XWl,  XG,  RHOGl,  BETAl,  Wl, 
WVil,  WW2,  WW) 


SUBROUTINE  WICIRL 

(1)  Description: 

Subroutine  WICIRL  is  called  at  outlet  of  rotor  and  performs 
the  calculation  of  droplet  impingement  and  rebound  in  rotor 
passage  for  large  droplet. 

(2)  Input  Variables: 

ISTAGE  stage  number 

RTIPIN  blade  tip  radius 

XWl  mass  fraction  of  large  droplet 

XG  mass  fraction  of  gaseous  phase 

PHOGl  density  of  gaseous  phase 

BETAl  rotor  inlet  relative  flow  angle 

Wl  rotor  inlet  relative  velocity 
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(3) 


Output  Variables: 


UWl  amount  of  water  that  impacts  upper  surface 

of  blade 

WW2  amount  of  water  that  impact  lower  surface  of 

blade 

WW  total  amount  of  water  that  impact  blade  surface 

(4)  Usage: 

CALL  WICIRL  (ISTAGE.  RTIPIN,  XWl,  XG,  RHOGl,  BETAl,  Wl, 

WWl,  WW2,  WW) 

SUBROUTINE  WICISS 

(1)  Description; 

Subroutine  WICISS  is  called  outlet  of  stator  and  performs 
the  calculation  of  droplet  impingement  and  rebound  in 
stator  passage  for  small  droplet. 

(2)  Input  Variables: 

ISTAGE  stage  number 

RTIPIN  blade  tip  radius 

XW  mass  fraction  of  small  droplet 

XG  mass  fraction  of  gaseous  phase 

RHOGl  density  of  gaseous  phase 

ALFA2  stator  iniet  absolute  flow  angle 

Wl  stator  inlet  absolute  velocity 
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(3)  Output  Variables; 

WWl  amount  of  water  that  Impact  stagnation 

region  of  blade 

WW2  amount  of  water  that  impact  off  of  blade 

WW  total  cunount  of  water  that  impact  the  blade 

(4)  Usage: 

CALL  WICISS  (ISTAGE  TRIPIN,  XW,  XG  RHOGl,  ALFA2,  Wl. 

WWl.  WW2,  WW) 


SUBROUTINE  WICISL 

(1)  Description: 

Subroutine  WICISL  is  called  at  outlet  of  stator  and  performs 
the  calculation  of  droplet  impingement  and  rebound  in  stator 
passage  for  large  droplet. 

(2)  Input  Variable: 

ISTAGE  stage  number 

RTIPIN  blade  tip  radius 

XW  mass  fraction  of  large  droplet 

XG  mass  fraction  of  gaseous  phase 

RHOGl  density  of  gaseous  phase 

ALFA2  stator  inlet  absolute  flow  angle 

Wl  stator  inlet  absolute  velocity 

(3)  Output  Variables: 

WWl  amount  of  water  that  impact  upper  surface  of 

blade 

WW2  amount  of  water  that  impact  lower  surface  of 

blade 


165 


ww 


total  amount  of  water  that  impact  on 
blade  surface 


(4)  Usage: 

CALL  WICISL  (rSTAGE.  RTIPIN,  XW,  XG,  RHOGl,  ALFA2.  Wl, 

WWl,  WW2,  WW) 

SUBROUTINE  WICWAK 

(1)  Description: 

Subroutine  WICWAK  is  called  at  rotor  outlet  and  stator 
outlet,  and  calculates  the  droplet  size  of  water  that  is 
re-entrained  at  trailing  edge  of  rotor  and  stator  blades. 

The  size  of  droplet  which  is  re-entrained  into  the  wake 
at  the  blade  trailing  edge  is  calculated  as  follows: 

(i)  Assume  a  value  for  a  droplet  diamter,  d,  that  is  re-entrained 
into  wake. 

(ii)  Calculate  the  stability  number,  SN. 

2 

SN  =  Uf  /PgOdg^ 

(iii)  Calculate  the  critical  Weber  number 

Wg  =  12  I  1  +  (SN)  1 

(iv)  Calculate  the  largest  stable  droplet  diameter 


(v)  Compare  the  assumed  droplet  diameter  with  the  calculated  one. 
Iterate  entire  steps  until  the  satisfactory  agreement  is 
obtained. 
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(2) 


Input  Variables: 


I 


RHOG  density  of  gaseous  pKase 

V  velocity  of  gaseous  phase  for  small  droplet 

or  relative  velocity  between  droplet  and 
gaseous  phase  for  large  droplet 

(3)  Output  Variables; 

DWAKE  droplet  size  that  re-entrained  at  trailing 

edge  in  (ft*) 

DWAKEM  droplet  size  that  re-entrained  at  trailing 

edge  in  (pm) 

(4)  Usage: 

CALL  WICWAK  (RHOG,  V,  DWAKE,  DWAKEM) 

SUBROUTINE  WICHET 

(1)  Description: 

Subroutine  WICHET  is  cal  led  at  end  of  stage  to  perform  the 
heat  transfer  calculation  be+ween  water  droplet  and 
gaseous  phase.  The  heat  transfer  rate  can  be  determined 
from  the  following  equation 

“  "h*  <^g  - 

where  h^  is  the  heat  transfer  coefficient.  A,  the  droplet 
surface  area,  T  ,  the  droplet  surface  temperature,  and 

W 

Tg,  the  temperature  of  the  surrounding  gas.  The  heat 
transfer  coefficient  can  be  expressed  as  follows: 


where  k  is  the  thermal  conductivity  of  air,  and  Nu,  the 

a 

Nusselt  Number.  The  Nusselt  number  can  beetpressed  in 
terms  of  the  dimensionless:  groups  as  follows; 

Nu  =  2.0  +  0.6  (Re)'‘-®®(Pr)®*” 

where  Re  is  the  Reynolds  number  based  on  the  relative  velocity 
between  the  droplet  and  the  surrounding  air,  and  Pr  is 
Prandtl  number. 

After  calculating  the  temperature  rise  of  the  water  and 
gas  phase  due  to  the  work  done  by  the  rotor,  the  heat 
transfer  calculation  is  carried  out  as  follows: 

(i)  Calculate  the  average  droplet  diameter, 

(ii)  Calculate  the  number  of  droplets,  N^  . 

^  _  "V> _  .  Az 

where  is  the  mass  flow  rate  of  water  phase,  p  ,  the 
density  of  water,  ,  the  axial  direction  velocity,  and 
Az,  the  axial  length  of  one  stage. 

(iii)  Calculate  the  droplet  surface  area,  A. 

(iv)  Calculate  the  Nusselt  number,  Nu. 

(v)  Calculate  the  heat  transfer  coefficient,  h^^. 

(vi)  Calculate  the  stage  outlet  temperature  for  droplet  and  gas 
without  heat  transfer,  that  is 

^9,  '  '^9.  *  ‘''^9’wk 

^Wj  *  ^Wi  *  ^^^w^wk 

where  (ATg)^^,^  and  (aT^)^I^  are  the  temperature  rise  of 
of  gas  and  water  due  to  work  done  by  rotor. 
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(vii) 


(viii) 


(ix) 


(X) 


Calculate  the  amount  of  heat transferred  from  the  gas  to  the 
droplet. 

\ 

Calculate  the  temperatures  rise  of  the  droplet  and  the 
temperature  drop  of  the  surrounding  gas. 


where  C  is  the  specific  heat  for  water  and  C_  is  the 

W  ^ 

humid  heat  for  air-water  mixture. 


Calculate  the  stage  outlet  temperature  for  droplet  and 
gas. 


-  (^’ht 


Using  the  temperature  calculated  in  step  (ix),  repeat  the 
steps  (vii)  to  (ix)  until  a  desired  accuracy  is  obtained. 


(2)  Input  Variables: 

TGI  temperature  of  gaseous  phase  at  stage  inlet 

TG3  temperature  of  gaseous  phase  at  stage  outlet 

TWl  temperature  of  droplet  at  stage  inlet 

TW3  temperature  of  droplet  at  stage  outlet 

0AVEN2  droplet  nominal  diameter  at  stage  inlet 

DEVEN  droplet  nominal  diameter  at  stage  outlet 

DELZI  length  of  stage 

VZ  axial  velocity 

WMASSl  mass  flow  rate  of  water 

VMASSl  mass  flow  rate  of  water  vapor 
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AMASS  mass  flow  rate  of  dry  air 

CHMASS  mass  flow  rate  of  methane 

DPG  specific  heat  constant  pressure  to  gaseous 

phase 

CPW  specific  heat  of  water 

RE  Reynolds  number  based  on  relative  velocity 

between  droplet  and  gaseous  phase. 

(3)  Output  Variables: 

OELIGH  temperature  drop  in  gaseous  phase  due  to 

heat  transfer  between  water  droplet  and 
gaseous  phase 

OELTUH  temperature  rise  in  droplet  due  to  heat 

transfer  between  water  droplet  and  gaseous 
phase 

(4)  Usage: 

CALL  WICHET  (TGI,  TG3,  TW3,  DAVEN2,  DAVEN,  DELZI,  VZ, 
WMASSl,  VMASSl,  AMASS,  CHMASS,  CPG,  CPW, 
DELIGH,  DELTWH,  RE) 

SUBROUTINE  WICMAS 

(1)  Description: 

Subroutine  WICMAS  is  called  at  end  of  stage  to  perform 
the  mass  transfer  calculation  between  water  droplet  and 
gas  phases. 

The  mass  transfer  rate  can  be  calculated  by  the  following 
equation 

■  Vl'wb-V 
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dm 

It 


where  is  the  mass  transfer  coefficient;  A,  the  droplet 
surface  area,  the  water  vapor  concentration  at 
droplet  surface  ,  and  C^,  the  water  vapor  concentration 
in  fluid  flow  around  droplet. 

Since  the  density  represents  the  mass  concentration,  and  the 
vapor  is  almost  a  perfect  gas,  the  mass  transfer  rate  can 
be  expressed  in  terms  of  vapor  pressure  as  follows: 


dm 

dt 

■  "m  * 

or 

dm 

dt 

m 

p p 

wb  -  _w 
^wb  ^w 

where  is  the  gas  constant  for  water  vapor,  the 
vapor  pressure  at  droplet  surface,  ,  the  vapor  pressure 
in  fluid  flowing  around  droplet,  the  vapor  temperature 
at  droplet  surface,  and  T  ,  the  vapor  temperature  in 
fluid  flowing  around  droplet. 

The  surface  area,  A,  for  the  droplet  cloud  is  given  by 
the  relation, 

A  =  ttD^ 

where  is  the  average  droplet  diameter,  and  N^j,  the 
number  of  droplets. 


The  mass  transfer  coefficient,  h^^j  is  expressed  as  follows: 


A  semi -empirical  equation  for  the  diffusion  coefficient 
in  gases  is  given  by  the  following:  (Reference  28) 


=  435.7 


P(VaV3  +  Vgy,)  = 


1  +  i 
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where  is  in  square  centimeters  per  second,  T  is  in 
degree  Kelvin,  p  is  the  total  system  pressure  in  newtons 
per  square  meter,  and  and  Vg  are  the  molecular  volumes 
of  constituents  A  and  B  as  calculated  from  the  atomic 
volumes.  and  Mg  are  the  molecular  v/eights  of  constituents 
A  and  B.  For  water-air  systems,  the  numerical  values  of 
Va.  Vg,  and  Mg  are  given  as  follows: 


Vb 


29.9 

”a  =M,.r  ^ 

=  M  = 

water 

18.8 

«B  =Mwater 

28.9 

18.0 


When  the  relative  velocity  between  a  single  droplet  and 
the  surrounding  fluid  approaches  zero,  the  following 
relationship  is  used  to  determine  the  mass  transfer  rate: 
Sh  =  2.0. 


Mass  transfer  rates  increase  with  increase  in  relative 
velocity  between  the  droplet  and  the  surrounding  air 
due  to  the  additional  mass  transfer  caused  by  the  convection 
in  the  boundary  layer  around  the  droplet.  The  mass  transfer 
coefficient  from  a  spherical  droplet  can  be  expressed 
in  terms  of  dimensionless  groups  as  follows: 

Sh  =  2.0  +  k  (Re)^(Sc)'^ 

where  Re  is  the  Reynolds  number  based  on  relative  velocity, 
which  expresses  the  ratio  of  inertial  force  to'  viscous  force, 
and  Sc  is  the  Schmidt  number,  which  expressed  the  ratio  of 
kinetic  viscosity  to  molecular  diffusivity. 

There  is  much  discussion  over  the  values  of  x,  y,  and  k. 

The  form  most  widely  applied  is  the  Ranz  and  Marshall  equation 
which  is 

Sh  =  2.0  +  0.6  (Re)®**®(Sc)®-” 
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(i) 

(i1) 

(iii-) 

(iv) 

(v) 

(Vi) 

(vii) 

(viil) 

(ix) 

(x) 

(xi) 

(xii) 


(xiii) 

(xiv) 


(XV) 


The  procedure  for  determining  the  mass  transfer  rate  is 
as  follows. 

Calculate  the  Sherwood  number,  Sh. 

Calculate  the  diffusion  coefficient,  D^. 

Calculate  the  average  droplet  size,  D^. 

Calculate  the  mass  transfer  coefficient,  h„. 

m 

Calculate  the  total  number  of  droplets,  N^. 

Calculate  the  total  surface  area  for  all  droplets. 

Calculate  the  water  vapor  pressure  at  droplet  surface, 
P^l^,  based  on  the  droplet  surface  temperature,  T^. 

Assume  the  vapor  pressure,  p  ,  and  set  p  =  (P,.).- 

Calculate  the  mass  transfer  rate, 

Calculate  the  the  new  value  of  water  mass  flow  rate. 


•  .  dm 

m  =  m.  -  TV 
w  w  dt 


Calculate  the  new  value  of  vapor  mass  flow  rate, 
dm 


^  =  "’v'^dt 


Calculate  the  specific  humidity,  W. 


W  =  my/ifi 


a 


where  m.is  the  air  mass  flow  rate. 

O 

Calculate  the  vapor  pressure. 

Compare  the  calculated  value,  (p^)_  .  with  the  assumed 
value  (p^)g. 

If  (P  )r  agi^ees  reasonably  well  with  the  assumed  value  (p  ) 
w  c  w  c 

proceed  to  step  (xv).  Otherwise,  steps  (viii)  to  (xiv) 

should  be  repeated. 

Using  the  determined  p^,  the  mass  transfer  rate  is  calculated 
Also,  the  specific  humidity  can  be  determined  by  the 
following  equation: 

W  =  0.6219  ^w 

■^w 
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Input  Variables: 

HWl  specific  humidity  at  stage  inlet 

TVIl  temperature  of  droplet  at  stage  inlet 

TW2  temperature  of  droplet  at  stage  outlet 

PPl  pressure  of  gaseous  phase  stage  inlet 

PP2  pressure  of  gaseous  phase  at  stage  outlet 

TGI  temperature  of  gaseous  phase  at  stage  inlet 

TG2  temperature  of  gaseous  phase  at  stage  outlet 

DZ  length  of  stage 

VZ  axial  velocity 

DDAVEl  droplet  nominal  diameter  at  stage  inlet 

DDAVE2  droplet  nominal  diameter  at  stage  outlet 

AMASS  mass  flow  rate  of  air 

RE  Reynolds  number  based  on  relative  velocity 

between  droplet  and  gaseous  phase 

VMASSl  mass  flow  rate  of  water  vapor  at  stage  inlet 

WMASSl  mass  flow  rate  of  water  droplet  at  stage 

outlet 

Output  Variables: 

HW2  specific  humidity  at  stage  outlet 

Vl'1ASS2  mass  flow  rate  of  water  vapor  at  stage  outlet 

WMASS2  mass  flow  rate  of  water  droplet  at  stage  outlet 

DMDTAV  average  mass  transfer  rate  across  stage 

Usage: 

CALL  WICMAS  (HWl,  TWl,  TW2,  PPl,  PP2,  TGI,  TG2,  DZ,  PWBl, 
PWB2,  PWl,  PW2,  VZ,  DDAVEl,  DDAVE2,  HW2, 

VMASSl,  VMASS2,  WMASSl,  WMASS2,  DMDTAV, 

AMASS,  RE) 
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(1)  Description: 

Function  WICMTR  is  called  in  Subroutine  WICMTR  and  calculates 
the  mass  transfer  rate. 


(2)  Input  Variables: 

TTG  temperature  of  gaseous  phase 

TTW  temperature  of  water  droplet 

PPP  pressure  of  gaseous  phase 

DAVW  droplet  nominal  diameter 

VZ  axial  velocity 

DZ  length  of  stage 

MMASS  mass  flow  rate  of  mixture 

PW  vapor  pressure 

RE  Reynolds  number  based  relative  velocity 

between  droplet  and  gaseous  phase 

(3)  Output  Variable: 

DMDT  mass  transfer  rate 

(4)  Usage: 

WICMTR  (TTG,  TTW, PPP,  DAVE,  VZ,  DZ,  MMASS,  PW  ,  RE) 
FUNCTION  WICPWB 

(1)  Description: 

Function  WICPWB  calculates  the  saturation  pressure  for 
water  vapor  is  a  function  at  temperature  as  follows: 

log  p.  =  A  -  B/T 

1  0  3 
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(2) 

(3) 

(4) 

FUNCTION 

(1) 

(2) 

(3) 

(4) 


where  units  are  (Kg/cm^)  for  and  (K)  for  T.  The 
values  of  constant  A  and  B  are  given  as  follows: 

A  =  5.97780,  B  =  2224.4  when  20°C  <  T  <  100®C 

A  =  5.64850,  B  =  2101.1  when  lOO^C  <  T  <  200  C 

A  =  5.45142,  B  =  2010.8  when  aoO'C  <  T  <  350®C 

Input  Variable: 

TWB  temperature  of  gaseous  phase 

Output  Variable: 

WICPWB  saturation  pressure  for  water  vapor 

Usage: 

WICPUB  (TUB) 

UICNEW 


Description: 

Function  UICNEW  is  used  to  estimate  the  new  trial  value  in 
the  iteration  procedure.  Figure  A. 3. 2.  shows  how  to 
determine  the  new  trial  value. 

Input  Variables: 


XI 

first  trial  value 

Y1 

calculated  value  corresponds 

X2 

second  trial  value 

Y2 

calculated  value  corresponds 

Output  Variable: 

UICNEW 

new  trial  value 

Usage: 

UICNEW  (XI. 

Yl,  X2,  Y2) 
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FUNCTION  MICTAN 


(1) 

(2) 

(3) 

(4) 

FUNCTION 

(1) 

(2) 

(3) 

(4) 


Description: 

Function  WICTAN(X)  is  used  to  obtain  the  ratio  of  SINE(X) 
to  COSINE(X),  that  is.  TAN(X). 

Input  Variable: 

X  angle 

Output  Variable: 

WICTAN  value  of  TAN  (X) 

Usage: 

WICTAN(X) 

WICBPT 


Description: 

Function  WICBPT  calculates  the  temperature  at  boiling 
point. 

Input  Variables: 

TSTAG  temperature 

PSTAGE  pressure 

Output  Variable: 

WICBPT  temperature  at  boiling  point 

Usage: 

*  ? 

WICBPT  (TSTAG,  PSTAG) 
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UNCLASSIFIED 


FUNCTION  WICSH 


(1)  Description 

Function  WICSH  calculates  the  specific  humidity. 

(2)  Input  Variables: 

TSTAGE  temperature 

PSTAG  pressure 

(3)  Output  Variable: 

WICSH  specific  humidity 

(4)  Usage: 

WICSH  (TSTAG,  PSTAG) 

SUBROUTINE  WICSIZ 

(1)  Description: 

Subroutine  WICSIZ  Is  called  at  outlet  of  rotor  and  stator  to 
determine  the  nominal  droplet  sizes.  It  is  assumed  that 
two  kinds  of  droplets  exist  at  inlet  of  compressor;  namely, 
small  droplet  and  large  droplet.  However,  at  trailing  edge 
of  each  blade,  the  new  droplets  are  re-entrained  into  blade 
wake.  The  droplets  which  are  larger  than  DLIMIT  are 
treated  as  large  droplets  and  droplets  which  are  smaller 
than  DLIMIT  are  treated  as  small  droplets.  Each  droplet 
size  weighted  based  on  its  mass  fraction  in  determining 
the  nominal  droplet  size.  Therefore,  at  outlet  of  each 
blade  row.  Subroutine  WICSIZ  gives  two  nominal  diameters: 
one  for  small  droplet  and  one  for  large  droplet.  It  may  be 
noted  that  only  two  classes  of  droplets  are  recognized  in 
the  model . 
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(2)  Input  Variables: 

WMASSL  mass  flow  rate  of  large  droplet 

WMASSS  mass  flow  rate  of  small  droplet 

AMINGl  amount  of  water  which  Is  to  be  re-entrained 

Into  wake,  originally  small  droplet 

AMING2  amount  of  water  which  Is  to  be  re-entrained 

Into  wake,  originally  large  droplet  and  upper 
part 

AMING3  amount  of  water  which  Is  to  be  re-entrained 

Into  wake,  originally  large  droplet  and  lower 
part 

DL  droplet  nominal  size  for  large  droplet  before 

Impingement 

OS  droplet  nominal  size  for  small  droplet  before 

Impinganent 

01  droplet  size  associated  with  AMINGl 

02  droplet  size  associated  with  AMING2 

03  droplet  size  associated  with  AMING3 

OLIMIT  largest  droplet  diameter  which  can  be  treated 

as  small  droplet 

(3)  Output  Variables: 

AMSLL  mass  flow  rate  of  small  droplet  after  re-entrainment 

AMLGE  mass  flow  rate  of  large  droplet  after 

re-entrainment 

OSLL  droplet  nominal  size  for  small  droplet 

OLGE  droplet  nominal  size  for  large  droplet 

(4)  Usage: 

CALL  WICSIZ  (WMASSL,  WMASSS.  AMINGl.  AMING2,  AMING3,  DL,  DS, 

01.  02,  03.  OLIMIT,  AMSLL,  AMLGE,  OSLL,  DLGE) 
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SUBROUTINE  WICPRP 


(1) 


Description: 


Subroutine  WICPRP  determines  the  flow  properties  such  as 
gas  constant  specific,  heat  ratio,  and  specific  heat  at 
constant  pressure  for  the  gaseous  mixture.  The  working 
equations  are  as  follows: 


«m 


IX 


^a-'^a  \*V^c  *  “^c 


c„„,.  =  X,.  c„-  +  X„.  C^.  +  X^  .  c„- 
pmix  a  pa  V  pv  c  pc 


^mlx  =  (1.0  -  *^n1x  )’^ 

c  7~J 
pmix 


where 

X.  =  mass  fraction  of  air  in  gaseous  mixture 

O 

Xy  »  mass  fraction  of  water  vapor  In  gaseous  mixture 
x^  =  mass  fraction  of  methane  In  gaseous  mixture 

Xg  +  x^  +  Xc  =1 

R,  =  gas  constant  of  air 
Ry  =  gas  constant  of  water  vr ... 

Rg  =  gas  constant  of  methane 

^nlx  "  constant  of  mixture 

Cpa  ®  specific  heat  constant  pressure  for  air 

Cpy  *  ^®®^  constant  pressure  for  water  vapor 

Cpc  *  specific  heat  at  constant  pressure  for  methane 
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‘'pmix  "  specific  heat  at  constant  pressure  for  mixture 
’^mix  “  specific  heat  ratio  for  mixture 

(2)  Input  Variables: 

XAIR  mass  fraction  of  air  in  gaseous  mixture 

XH20  mass  fraction  of  water  vapor  in  gaseous 

mixture 

XCH4  mass  fraction  of  methane  in  gaseous  mixture 

T  temperature  of  gaseous  mixture 

(3)  Output  Variables: 

RMIX  gas  constant  of  gaseous  mixture 

CPMIX  specific  heat  constant  pressure  for  gaseous 

mixture 

GAMMA  specific  heat  ratio  of  gaseous  mixture 

G1  value  for  GAMMA/  (GAMMA  -  1.0) 

G2  value  for  (GAMMA  -  1.0)/2.0 

G3  value  for  -1.0/(GAMMA  -  1.0) 

(4)  Usage: 

CALL  WICPRP  (XAIR,  XH20.  XCH4,  T,  RMIX,  CPMIX,  GAMMA,  Gl, 
G2,  63) 


FUNCTION  WICCPA 

(1)  Description 

Function  WICCPA  calculates  the  specific  heat  at  constant 
pressure  for  air  as  a  function  of  temperature  as  follows: 
(Reference  29) 

Cp  ■  (a  +  aT  ■  cT*+  dt*  +  eT'*)R 
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where  units  are  (J/kg-K)  for  Cp,  (K)  for  T,  and 
(J/kg-K)  for  R.  The  values  of  coefficients  a,  b,  c,  d, 
and  e  are  as  follows: 

a  =  3.65359 

b  =  -1.33736  X  lO'*® 

c  *  3.29421  X  10-« 

d  =  -1.91142  X  10-’ 

e  =  0.275462  x  lO"** 

(2)  Input  Variable: 

T  temperature 

(3)  Output  Variable: 

WICCPH  specific  heat  constant  pressure 

(4)  Usage: 

WICCPH  (T) 

FUNCTION  WICCPH 

(1)  Description: 

Function  WICCPH  calculates  the  specific  heat  at  constant 
pressure  for  water  vapor  as  a  function  of  temperature 
as  follows:  (Reference  29) 

Cp  =  (a  +  bT  +  cT*+  dT*+  eT'‘)R 

where  units  are  (J/kg-K)  for  Cp,  (K)  for  T,  and  (J/kg-K)  for 
R.  The  values  of  coefficients  a,  b»  c,  d,  and  e  are  as 
follows: 

a  -  4.07013 

b  -  -1.10845  X  10’® 
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c  =  4.15212  X  10‘® 
d  »  -2.96374  x  10"* 
e  =  0.807021  x  10"“ 

(2)  Input  Variable: 

T  temperature 

(3)  Output  Variable: 

WICCPH  specific  heat  at  constant  pressure 

(4)  Usage: 

WICCPH  (T) 

FUNCTION  WICCPC 

(1)  Description: 

Function  WICCPC  calculates  the  specific  heat  at  constant 
pressure  for  methane  as  a  function  of  temperature  as  follows 
(Reference  29) 

Cp  =  (a  +  bT  +cT*+  dT®+eT'')R 

where  units  are  (J/kg-k)  for  Cp,  (K)  for  T,  and  (J/kg-K) 
for  R.  The  values  of  coefficients  a,b,c,d,  and  e  are  as 
follows: 

a  =  3.82619 

b  =  -3.97946  x  10' ’ 

c  =  24.5583  X  10'® 

d  =  -22.7329  x  10'® 

e  =  6.92760  x  10"“ 

(2)  Input  Variable: 

T  temperature 
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(3) 


Output  Variable: 

UICCPC  specific  heat  constant  pressure 

(4)  Usage: 

WICCPC  (T) 
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APPENDIX  4 


PROGRAM  SOURCE  LIST 


i 


! 


I 
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UCJU 


PROGRAM  MAIN( INPUT. OUTPUT. TAPES® INPUT. TAPES=OUTPUT) 


C  PROGRAM  PURDU-WICSTK 


c  abstract: 

C  THIS  PROGRAM  CODE  HAS  BEEN  PRODUCED  FOR  THE  STUDY  OF  THE  AXIAL  FLOU 
C  COMPRESSOR  PERFORMANCE  FOR  THE  GAS-WATER  DROPLET  MIXTURE  FLOW. 

C  THE  MIXTURE  CONSISTES  OF  TWO  TYPES  OF  DROPLET  SIZES  AND  THREE 
C  KINDS  OF  GASEOUS  PHASES. THIS  PROGRAM  CODE  IS  WRITTEN  ESPECIALLY 
C  FOR  AIR+WATER  UAPOR+METHANE+SMALL  DROPLET+LARGE  DROPLET. 

C  THIS  FORTRAN  COMPUTER  CODE  CAN  PREDICT  THE  DESIGN  AND  OFF-DESIGN 
C  PERFORMANCE  OF  AXIAL  FLOW  COMPRESSOR.  STAGE  AND  OUERALL  PERFORilANCE 
C  ARE  OBTAINED  BY  A  STAGE-BY-STAGE  CALCULATION. 

C  THIS  COMPUTER  PROGRAM  CADE  HAS  BEEN  DEUELOPED  AT  PURDUE  UNIUERSITY. 

C  THERMAL  SCIENCE  AND  PROPULSION  CENTER. ICST  LAFAYETTE. INDIANA  47906. 

C  UNDER  AIR  FORCE  CONTRACT  F33GlS-78-C-a401. PRINCIPAL  INUESTIGATOR:DR. 

C  S.N.B.MURTHY.  THE  AUTHER  OF  THIS  PROGRAM  CODE  IS  TOSHIAKI  TSUCHIYA. 

C  PURDUE  UNIUERSITY  .  DEPARTMENT  OF  AERONAUTICS  AND  ASTRONAUTICS. 

C  GRADUATE  INSTRICTOR  IN  RESEARCH. 

C  ++++++++++++++++++++++«■+++++++++++++++++++++++++++++++++++•»•++++++++++ 
C++++++++++++++++++++++++++++++++++-M-++-.-++++++++++++++++++++-f+++++'M-++++ 
REAL  ND.NU.KA.M.MMASS.MMASSl 
REAL  MMASSO 
COMMON  TD(7).IUNIT 
COMMON  CFL. CFT. CFP. CFD. CFM. CFU. CFA 
COMMON  JPERFM , RHOG ( 3 ) . RERUP . RERLOW. RESUP. RESLOW 
COMMON  PREE . RRT I P ( 8 ) . SRT I P  <  8 ) , AAAI . AAAB. AA A3 . SAREA ( 6 ) . SAREAS ( 7 ) 
COMMON  P(3).TG(3).XA.XU(3).XCH4.>aj(3).XWW(3).XWT(3).TW(3).TWW(3) 
COMMON  OMEGS ( 7 ) .  OMEGR ( G ) . GAFR ( 6 ) . GAPS ( 6 ) 

COMMON  RRHUBCG)  .  RC(6)  .  RDLADE(6)  .  STAGERCB) 

COMMON  SRHUB(7)  .  SC(7)  .  SELADE(7).STAGES(7) 

COMMON  SIGUMR(6)  .  BET1SR(6)  .  BET2SR(B)  .  AINCSR(G)  .  ADEUSR(B) 
COMMON  SIGUMS(7)  .  BETISSI?)  .  BET2SS(7)  .  AINCSS(7)  .  ADEUSS(7) 
COMMON  UTIPG(B).UTIP(G).UTIPD(B).UOU(B).UMEAN(B).UHUB(B).U(B).FAI 
COMMON  AREA  ( B ) ,  AREAS  ( 7 ) .  UUa  ( B ) .  UTIP2  (  B ) .  UMEAN2  (  B  ) .  UHUB2  ( B ) .  I  PR  1  NT 
COMMON  ICENT.IICENT.FMR1<S).FMA2(S).IDESIN.FAID 
COMMON  NS. NSl . RT(S) . RM(6) . RH<S). STIfi). SM(6). SH(B) 

COMMON  DSMASS,AAf,EA(7),AAREAS(7).PR12D(6).PR13D(B).ETARD(6) 

COMMON  DR(G).DS(B).DEQR(B).DEQS(6).BLOCK(6).BLOCKS(7) 

COMMON  BET 1 MR ( 6 ) . BET2MR ( B ) . BET IMS ( 7 ) . BET2MS ( 7 ) . RADI 1 ( B ) . RADI 2 ( B ) 
DIMENSION  D<20.3)  .  XD(20.3)  .  XXD(20.3) 

DIMENSION  WS(3).WMASS(3).UMASS(3).RH0A(3).RH0M{3).TB(3) 

DIMENSION  DELZ(B).ETAA(B) 

DIMENSION  XXA(3).XXU(3).DAUE<20) 

DIMENSION  TDEW(3) 

DIMENSION  DDAUE ( 20 ) , WWMASS ( 3 ) . WTMASSI 3 ) 

DIMENSION  TMASS(3).GMASS(3).XAIR(3).XMETAN(3).XGAS(3). FA ISTL(B) 
DIMENSION  DELBlR(r),DELBlS(7).XGXBLDI7).XG2BLD(7).XG3BLD(7). 
$XWBLD(7).XWHBLD(7) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

READ  lUPUT  DATA  C 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

READCS.SS)  NS 
99  FORMAT! II) 

NS1=NS+1 

READ(S.IOO)  (RRHUB(I).I=1.NS) 

100  FORMAT  (BF5.3) 

READ(S. 111)(RC(I).I=1.NS) 

111  F0RMAT(bF5.3) 

READ(5.112)  (RBLADE(I).I=1.NS) 

112  FORMAT (6F5. 2) 

READ(5.113)(STAGER(1)  .1=1. NS) 

113  F0RMAT(BF5.2) 

READCS, 114)(SRHUB(I).I=1.7) 

114  F0RMAT(7F5.3) 

READ(5,115)  (SC(I). 1=1.7) 

115  FORMAT (7F5. 3) 


MAIN 

1 

MAIN 

2 

MAIN 

3 

MAIN 

4 

MAIN 

5 

MAIN 

6 

MAIN 

MAIN 

8 

MAIN 

9 

MAIN 

10 

MAIN 

11 

MAIN 

12 

MAIN 

13 

MAIN 

14 

MAIN 

15 

MAIN 

16 

MAIN 

17 

MAIN 

18 

MAIN 

19 

MAIN 

20 

MAIN 

21 

MAIN 

22 

MAIN 

23 

MAIN 

24 

MAIN 

25 

MAIN 

26 

MAIN 

27 

MAIN 

28 

MAIN 

23 

MAIN 

30 

MAIN 

31 

MAIN 

32 

MAIN 

33 

MAIN 

34 

MAIN 

35 

MAIN 

3S 

MAIN 

37 

MAIN 

38 

MAIN 

39 

MAIN 

40 

MAIN 

41 

MAIN 

42 

MAIN 

43 

MAIN 

44 

MAIN 

45 

MAIN 

46 

MAIN 

47 

MAIN 

48 

MAIN 

49 

MAIN 

SO 

MAIN 

51 

MAIN 

52 

MAIN 

53 

MAIN 

54 

MAIN 

55 

MAIN 

5S 

MAIN 

57 

MAIN 

58 

MAIN 

59 

MAIN 

60 

MAIN 

61 

MAIN 

62 

MAIN 

63 

MAIN 

64 

MAIN 

65 

MAIN 

66 

MAIN 

67 

MAIN 

68 

MAIN 

69 

MAIN 

70 
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RE8D(5>116)(SBL8I]E(I).I=1>7) 

MAIN 

71 

116 

FQRMftT(7F5.2) 

MAIN 

72 

READ(5. 117) (SIGUMRC I ) . 1=1 .NS) 

MAIN 

73 

117 

FORMAT (GF5. 3) 

MAIN 

74 

READ(5.122)(SIGUMS(I)  .1=1. MSI) 

MAIN 

75 

ISS 

FORMAT (7F5, 3) 

MAIN 

76 

READ(5.127)  FNF 

MAIN 

77 

127 

FORMAT (F8. 2) 

MAIN 

78 

READ(5.128)  XDIM. ICEMT.XODIN. IICENT 

MAIN 

73 

128 

F0RMAT(F5.3.I1.F5.3.I1) 

MAIN 

80 

REA0(5.129)  TOG. TOM. PO 

MAIN 

81 

129 

FORMAT (3F7. 2) 

MAIN 

82 

READ(S.130)  DIM.OOIM 

MAIN 

83 

130 

F0RMAT(2FG. 1 ) 

MAIN 

84 

READ(5.132)  FMD.TOlD.POlO 

MAIN 

85 

132 

F0RMAT(F7.1.2F7.2) 

MAIN 

86 

R£A0(5.133)  XCH4.RHUMID 

MAIN 

87 

133 

FORMAT(FS.3.F10.5) 

MAIN 

88 

REA0(5. 134)  FMUA. FMMU. FMUC 

MAIN 

89 

134 

FORMAT (3F7. 3) 

MAIN 

90 

READ(5.13S)  PREB.DLIMIT 

MAIN 

91 

135 

F0RMAT(F5.1.F7.1) 

MAIN 

92 

READ(5.140)  (STAGES(1).I=1.NS1) 

MAIN 

93 

140 

FORMAT (7F5. 2) 

MAIN 

94 

READ(5.141)  (GAPR(I).I=1.MS) 

MAIN 

95 

141 

FORMAT (eF7. 5) 

MAIN 

96 

READ(5.142)  (GAPS(1).I=1.NS) 

MAIN 

97 

142 

F0RMAT(GF7.5) 

MAIN 

98 

READ(S.14G)  (RRT1P(I).I=1,MS) 

MAIN 

99 

146 

FORMAT (GF6. 3) 

MAIN 

100 

READ(5.147)  (SRTIP(I). I=1.NS1) 

MAIN 

101 

147 

FORMAT (7FG. 3) 

MAIN 

102 

READ(S.148)  IPERFM.IUNIT 

MAIN 

103 

148 

FORMAT (211) 

MAIN 

104 

READ(5.1491)  IRAD 

MAIN 

105 

1431 

FORMATCll) 

MAIN 

106 

READ(S.1492)  (RT(1). 1=1.MS) 

MAIN 

107 

1492 

F0RMAT(GF5.3) 

MAIN 

108 

READ(5.1493)  (RM(1). 1=1,NS) 

MAIN 

109 

1493 

F0RMAT(GF5.3) 

MAIN 

110 

READ(5.1494)  (RH(1). 1=1.MS) 

MAIN 

111 

1494 

FORMAT (BF5, 3) 

MAIN 

112 

READ(S.1495)  (ST(1). 1=1.MS) 

MAIN 

113 

1495 

FORMAT (GF5. 3) 

MAIN 

114 

READ(5,1496)  (SM(1),1=1.MS) 

MAIN 

115 

1496 

FORMAT (6F5. 3) 

MAIN 

116 

READ(5.1497)  (SH(1), 1=1.NS) 

MAIN 

117 

1497 

FORMAT (GF5. 3) 

MAIN 

118 

READ(5.1498)  (BLOCK(l). 1=1.MS) 

MAIN 

119 

1498 

FORMAT (6F5. 3) 

MAIN 

120 

READ(5.1499)  (BLaCKS(l).l=l.MSl) 

MAIN 

121 

1499 

FORMAT <7FS. 3) 

MAIN 

122 

READ(5.1502)  (BETlMR(l). 1=1.NS) 

MAIN 

123 

1502 

FORMAT (6F5. 2) 

MAIN 

124 

READ(5.1503)  (BET2MR(1). 1=1.MS) 

MAIN 

125 

1503 

FORMAT (6F5. 2) 

MAIN 

126 

READ(5.1S04)  (BET1MS(1).1=1.MS1) 

MAIN 

127 

1504 

F0RMAT(7F5.2) 

MAIN 

128 

READ(5.1505)  (BET2MS(1). 1=1.MS1) 

MAIN 

129 

1505 

F0RMAT(7F5.2) 

MAIN 

130 

REA0(5.1506)  OSMASS 

MAIN 

131 

1506 

F0RMAT(F10.6) 

MAIN 

132 

READ(5.1507)  (PR12D(1).1»1.MS) 

MAIN 

133 

1507 

FORMAT (6FS. 3) 

MAIN 

134 

READ(5.1508)  (PR13D(1). 1=1.MS) 

MAIM 

135 

1508 

F0RMAT(6F5.3) 

MAIN 

136 

READ(5.1509)  (ETARD(1).1=1.MS) 

MAIM 

137 

1509 

F0RMAT(6F5.3) 

MAIN 

138 

READ(5.1511)  (SAREA'1).I=1.MS) 

MAIN 

139 

1511 

FORMAT^  'P10.7) 

MAIN 

140 
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REf^DCS.  ISIS)  (SnREI^S(I).I=l.NSl) 

MAIN 

141 

15ia  FORMAT(7F10.7) 

MAIN 

142 

REA0(5.1513>  (I)ELB1R(I}.I=1>NS) 

MAIN 

143 

1513  F0Rf1flT(6F5.2) 

MAIN 

144 

READ(5.1514)  (DELBISC 1 ) . I=1.NS1 ) 

MAIN 

145 

1514  FORMAT (7F5. 2) 

MAIN 

14B 

READ(5.1515)  (XGlBLO(I).I=lfriS) 

MAIN 

147 

1515  F0RMAT(6F5.2) 

MAIN 

148 

READ(5. 151B)  (XG2BLD( 1 ), I=1.NS) 

MAIN 

149 

151B  F0RMAT(BF5.2) 

MAIN 

150 

READ(5.1517)  (XG3BLD< I ). I=1.MS) 

MAIN 

151 

1517  F0RMAT(BF5.2) 

MAIN 

152 

READ(5. 1518)  (XUBLD(I),I=1.NS) 

MAIN 

153 

1518  F0RMAT(GF5.2) 

MAIN 

154 

READ(5. 1519)  CXUUBLDC I ). I=l> MS) 

MAIN 

155 

1519  F0RMAT(BF5.2) 

MAIN 

15B 

READ(5.1520)  (BET2SS( I ), 1=1,NS1) 

MAIN 

157 

1520  F0RMAT(7F5.2) 

MAIN 

158 

CFL=2.54 

MAIN 

159 

CFT=1.0/1.8 

MAIN 

180 

CFP=47. 880258 

MAIN 

181 

CFD=1G. 018483 

MAIN 

182 

CFM=^0. 45359237 

MAIN 

183 

CFU=0.3048 

MAIN 

184 

CFA=0. 09290304 

MAIN 

185 

IF(IUNIT.ME.3)  GO  TO  850 

MAIN 

188 

DO  15G0  1=1. NS 

MAIN 

187 

RRHUB(I)=RRHUB(I)*CFL 

MAIN 

168 

RCCI)=RC(I)*CFL 

MAIN 

169 

GAPR(I)=GAPR(I)*CFL 

MAIN 

170 

GAPS(I)=GAPS(I)*CFL 

MAIN 

171 

RRTIP(  I  )=RRTIP(  I  )*CFL 

MAIN 

172 

RT(I)=RT(1)*CFL 

MAIN 

173 

RM(I)=RMCI)*CFL 

MAIN 

174 

RH(I)=RH(I)*CFL 

MAIN 

175 

ST(I)=ST(I)*CFL 

MAIN 

178 

SM(I)=SM(I)*CFL 

MAIN 

177 

SH(I)=SH(I)»CFL 

MAIN 

178 

SAREAC I )=SAREA( I )*CFA 

MAIN 

179 

15B0  CONTINUE 

MAIN 

180 

DO  1570  1=1, NSl 

MAIN 

181 

SRHUB(I)=SRHUB(I)*CFL 

MAIN 

182 

SC(I)=SC(I)*CFL 

MAIN 

183 

SRTIP(I)=SRT1P(I)»CFL 

MAIN 

184 

SAREAS ( I ) =SAREA5 ( I ) *CFA 

MAIN 

185 

1570  CONTINUE 

MAIN 

186 

T0G=T0G*CFT 

MAIN 

187 

T0U=T0U*CFT 

MAIN 

188 

P0=P0*CFP 

MAIN 

189 

T01D=T01D*CFT 

MAIN 

190 

P01D=P01D*CFP 

MAIN 

191 

DSMASS=DSMASS*CFI1 

MAIN 

192 

IUNIT=2 

MAIN 

193 

850  CONTINUE 

MAIN 

194 

IF(IUNIT.NE.4)  GO  TO  851 

MAIN 

195 

DO  1581  1=1, NS 

MAIN 

196 

RRHUB ( I ) =RRHUB ( I ) /CFL 

MAIN 

197 

RC(I)=RC(I)/CFL 

MAIN 

198 

CAPR(I)=GAPR(I)/CFL 

MAIN 

199 

GAPS(I)=GAPS(I)/'CFL 

MAIN 

200 

RRTIP(I)=RRTIP(I)/CFL 

MAIN 

201 

RT(I)=RT(I)/CFL 

MAIN 

202 

RM(I)=RM(I)/CFL 

MAIN 

203 

RH(I)=RH(I)/CFL 

MAIN 

204 

ST(I)=ST(I)/CFL 

MAIN 

205 

SM(I)=SM(I)/CFL 

MAIN 

206 

SH(I)=SH(I)/CFL 

MAIN 

207 

SARE A ( I ) =SAREA ( I ) /CFA 

MAIN 

208 

1561  CONTINUE 

MAIN 

209 

DO  1571  1=1, NSl 

MAIN 

210 
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SRHUB(I)=SRHUB(I)/CFL  MAIN 

SC(I)=;SC(1)/CFL  MAIN 

SRTIP(I)=SRTIP(I)/'CFL  MAIN 

SAREAS(I)=SAREAS(I)^CFA  MAIN 

1571  CONTINUE  MAIN 

T0G=T0G/CFT  MAIN 

TOU=TOU/CFT  MAIN 

P0=P0/'CFP  MAIN 

T01D=T01D/'CFT  MAIN 

P01D=P01D/'CFP  MAIN 

DSMASS=DSMASS/CFM  MAIN 

IUNIT=1  MAIN 

851  CONTINUE  MAIN 

FNFN=FNF*100.0  MAIN 

CRPM=FNF*FND  MAIN 

IF(IUNIT.EO.l)  FN=FND*FNF*SaRT(T0G/^18.7)  MAIN 

IF(IUNIT.EQ.2)  FN=FND«FNF*SaRTCT0G^288.17)  MAIN 

CCCCCCCCCCCCCCCCCCCCCCCCCCCC-CCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCC  |WIN 

PRINT  OUT  OF  INPUT  DATA  C  MAIN 

C  MAIN 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCtXCCCCCCCCCCCCCCCCCCCCCCC  MA I N 
URITE(G. leoo)  MAIN 

IGOO  F0RMAT(1H1,5X.F*****«*************»*********  INPUT  DATA  **********  MAIN 

s»**«»*»««*»**«*»»»»****»***^)  main 

URITECB. IGIO)  NS  MAIN 

IGIO  FORMATC 1  HO.  IX.  XHSC NUMBER  OF  STAGE)=>e.  12)  MAIN 

IF(IUNIT.EQ.l)  WRITE(G.lGOl)  MAIN 

IGOl  FORMATdH  ,  IX, XUNIT=ENGLISH  UNIT?:)  MAJH 

IF(IUNIT.EQ.2)  WRITE(G,1G02)  MAIN 

1G02  FORMATdH  ,  IX. PUNIT=METRIC  UNIT**)  MAIN 

WRITE(G.1G03)  IPERFM  MAIN 

1G03  FORMATdH  ,  IX.  J!IPERFM=P.  ID  MAIN 

IF(lRAD.EQ.l)  WRITECG, 1G04)  MAIN 

1G04  FORMATdH  ,  IX, ?!PERFORMANCE  AT  TIPP)  MAIN 

IFCIRAD.EQ.a)  WRITECG, 1G05)  MAIN 

1G05  FORMATdH  ,  IX, ^PERFORMANCE  AT  MEAN;')  MAIN 

IFdRAD.EQ.3)  WRITECG,  IGOG)  MAIN 

IGOG  FORMATdH  ,  IX,  i>*PERFORMANCE  AT  HUB»«)  MAIN 

WRITECG, 1G20)  MAIN 

1G20  FORMATCIHO,  14X, psIjc. 5X. «i>«,5X.s‘3i*,5X,»«4P,5X, je5P‘,5X,KB^,4X, J<ICU»«)  MAIN 

WRITECG, 1G30)  (RRHUBC I ), I=1,NS)  MAIN 

1G30  FORNATCIH  ,  IX,  ?!RRHUB(  1)?*,  3X,GCF5.3,  IX) )  MAIN 

WRITECG. 1G40)  CRCC I ) . 1=1 , NS)  MAIN 

1G40  FORMATCIH  ,  IX, !«RCC DP, GX,GCF5.3, IX) )  MAIN 

WRITECG, 1G50)  CRBLADEC D. I=1.NS)  MAIN 

1G50  FORMATdH  ,  IX,  PRELADEC  DP.2X,GCF5.2,  IX) )  MAIN 

WRITECG. IGGO)  CSTAGERC I), I=1,NS)  MAIN 

IGSO  FORMATdH  ,  IX,  PSTAGERCI  )P,2X,B(F5.2,  IX) )  MAIN 

WRITECG, IGBD  C STAGES C I). 1=1, NS)  MAIN 

IGGl  FORMATdH  .  IX,  PSTAGESC  DP,2X,6CF5.2.  IX) )  MAIN 

WRITECG, 1G70)  CSRHUBCI ), I=1,NSD  MAIN 

1G70  FORMATdH  ,  1X,pSRHUBCDP.3X.7CF5.3,1X))  MAIN 

WRITECG. 1G80)  C3CC I ) . I=1.NS)  MAIN 

1G80  FORMATCIH  , IX, PSCC DP, BX,GCF5.3, IX) )  MAIN 

WRITECG. 1G30)  CSBLADEC I ), I=1,NS)  MAIN 

1G90  FORMATdH  ,  1X,pSBLADECDP,2X.6(F5.2,1X))  MAIN 

WRITECG, 1700)  (SIGUMRC I) , I=1,NS)  MAIN 

1700  FORMATdH  ,  IX,  PSIGUMRC  DP,2X.B(F5.3.  IX) )  MAIN 

WRITECB, 1750)  CSIGUMSC I ) . I=1,NS)  MAIN 

1750  FORMATdH  ,  IX,  P5IGUMSC  DP,2X,BCF5.3,  IX) )  MAIN 

WRITECB,  1735)  CGAPRCD,  I=1,NS)  MAIN 

1795  FORMATdH  .lX.PGAPRCI  P,4X,B(F5.3,  IX) )  MAIN 

WRITECB, 173B)  CGAPSC I) . I=1,NS)  MAIN 

179G  FORMATdH  ,  IX,  PGAPSC I  )P,4X,G(F5.3.  IX)  )  MAIN 

WRITECB, 1738)  CRRTIPC I ), I=1,NS)  MAIN 

1738  FORMATdH  .  1X,PRRTIPCDP.3X,B(F5.2,1X))  MAIN 

WRITECB,1733)  CSRTIPC I ), I=1.NSD  MAIN 

1799  FORMATCIH  , IX, PSRTIPC I )P,3X,7(F5.2. IX) )  MAIN 
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URITE(6>1801)  (RT(I).I=1.NS) 

1801  FORMATdH  .lX.f*RT(I);<,GX.G(FS.3,lX)) 

URITE(6>180S)  (Rn(I)iI=l>MS) 

1802  FORMATCIH  .  IX. »<RM( I)?:, GX. BCFS.S.  IX) ) 

WRITE(B.1803)  (RH(I), I=1.NS) 

1803  FORMAKIH  .  IX.  ^RH(  I  6X.  G(F5.3.  IX) ) 

WRITE(G.1804)  (ST( I) . 1=1 . NS) 

1804  FORMATCIH  ,  IX. i>!SH( I  )^. SX.G(F5.3. IX) ) 

UlRITECG.  1805)  (SMC  I ).  1=1  .NS) 

1805  FORMATdH  ,  IX.  s^SMd  );i.SX.G(F5.3.  IX)  ) 

WRITE(G.180G)  (SHCI ), 1=1.NS) 

laOG  FORMATdH  ,  lX.!«SHd)j«.SX.G(F5.3.1X)) 

WRITE(G.1807)  (BLOCKCI ) . 1=1. NS) 

1807  FORMATCIH  .  IX. ^BLOCKC I )?*. 3X. G(FS.3. IX) ) 

WRITECG. 1808)  (BLOCKSCI ) . I=1.NS) 

1808  FORMATdH  .  IX.  J^BLOCKSC  I  )f!.2X.G(F5.3.  IX)  ) 

WRITECG. 1811)  (BET1MR(I).I=1.NS) 

1811  FORMATdH  .  IX.  XBETIMRC I )»!.  2X.G(F5.2.  IX)  ) 

WRITE(G.1812)  (BET2MR(I).I=1.NS) 

1812  FORMATdH  .  IX. XEET2MRd  ) X. 2X.B(F5.2.  IX) ) 

WRITE(B,1813)  (3ET1MS(I).I=1.NS1) 

1813  FORMATdH  .  IX.  ;<BET1MS(  I )»:.  2X.7(F5.2.  IX)  ) 

WRITE(B.1814)  (BET2MS(I).1=1.NS1) 

1814  FORMATdH  .  1X.J<3ET2MS(I)X,2X.7(F5.2.1X)) 

WRITECG. 1815)  (PRiaOCI ) . 1=1. NS) 

1815  FORMATdH  .  IX.  XPR12D(  I  )^.  3X.  B(F5.3.  IX)  ) 

WRITECG.ISIG)  (PR13D(1).I=1.NS) 

181B  FORMATdH  .  IX.  s^FRlSDC  1  );^.  3X.B(FS.3.  IX)  ) 

WRITECG. 1817)  (ETARDC I ) . 1=1. NS) 

1817  FORMATdH  .  IX.  ^ETARBC I );«.  3X.  G(F5.3.  IX) ) 

WRITECG. 1818) 

1818  FORMAT (IHl.SX. *******************************  INPUT  DATA 

) 

WRITECG. 1800)  FNF 

1800  FQRMATCIHO.IX.XFNFCFRACTION  OF  DESIGN  CORRECTED  SPEED)=P.F5.3) 
WRITECG. 1810)  XDIN.XDDIN.RHUMID.XCH4 

1810  FORMATCIHO.IX.^XDINCINITIAL  WATER  CONTENT  OF  SMALL  DR0PLET)=X.F5.3 
S./.aX.^^XDDINC INITIAL  WATER  CONTENT  OF  LARGE  DROPLET )=p!.F5. 3./. 
$2X.XRHUMID(  INITIAL  RELATIUE  HUMIDITY)=X.FB.a.  1X.»<PER  CENT?!.^. 
$2X.?iXCH4(  INITIAL  METHANE  CONTENT )=i<.F5. 3) 

WRITECG. ISaO)  TOG.TOW.PO 

laao  FORMATCIHO.IX.J'TOGCCOMPRESSOR  INLET  TOTAL  TEMPRATURE  OF  GAS)=!‘. 
$F7.a./.aX.»!TOW(CONPRESSOR  INLET  TEMPERATURE  OF  DR0PLRET)=!«.F7.a./'. 
sax. XPOC COMPRESSOR  INLET  TOTAL  PRESSURE )=;«. FI 0.8) 

WRITECG. 1830)  DIN.DDIN 

1830  FORMATCIHO.IX.XDINCINITIIL  DROPLET  DIAMETER  OF  SMALL  DROPLET)=se. 
$FG.l./.2X.;<DDINdNITIAL  DROPLET  DIAMETER  OF  LARGE  DROPLET )=»*. FB.  1 ) 
WRITECG. 1850)  FHD 

1850  FORMATCIHO.  IX. XFNDC DESIGN  ROTATIONAL  SPEED )=;«. F7. 1 ) 

WRITECG. 1851)  DSMASS 

1851  FORMAT  CIHO.  IX.  s^DSMASSC  DESIGN  MASS  FLOW  RATE)=!<.F*  0.4) 

WRITECG. 18G0)  TOG 

18G0  FORMATCIHO. lX.xCOMPRESSOR  INLET  TATAL  TEMPERATURE (GAS  PHASE )!<  . 
$F7.a) 

WRITECG. 1870)  PO 

1870  FCRMATClHO.lX.i'COMPRESSOR  INLET  TOTAL  PRESSURE=»‘.F10.2) 

WRITECG. 1880)  PREB 

1880  FORMATCIHO.IX.XPREBC PERCENT  OF  WATER  THAT  REBOUND  AFTER  IMPINGE 
SMENT )  =X .  F5 . 1 . 1 X ,  »!PERCENTX ) 

WRITECG. 1900)  FN 

1900  FORMATCIHO.  lX.xROTOR  SPEED=>!.F7.1. 1X.»«RPM!<) 

WRITECG. 1910)  CRPM.FNFN 

1910  FORMAT(1H0.1X.»<CORRECTED  ROTOR  SPEED=  K.F7. 1. 1X.>«RPMP.»<(»«.2X.FS.1. 
Si'PER  CENT  OF  DESIGN  CORRECTED  SPEED)!*) 

IFCIUNIT.NE.a)  GO  TO  858 

DO  15G  1=1.  NS 

RRHUBC I )=RRHUB( I ^/CFL 

RC(I)=RC(I)/CFL 

GAPR(I)=GAPR(I)/CFL 

GAPS(I)=GAPS(I)/CFL 
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MAIN 
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MAIN 
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MAIN 
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MAIN 
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MAIN 
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MAIN 
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MAIN 
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RRTIP(I)=RRTIP(I)/'CFL  MAIN 

RT(I)=RT(1)/CFL  main 

RM(I)=RM(I)xCFL  MAIN 

RH(I)=RH(I)/CFL  MAIN 

ST(I)=ST(I)/CFL  MAIN 

SM(I)=SM(I)^CFL  MAIN 

SH(I)=SH(I)/CFL  MAIN 

SAREA(I)=SAREA(I)/CFA  MAIN 

156  CONTINUE  MAIN 

DO  157  1=1. NSl  MAIN 

SRHUB(I)=SRHUB(I)/CFL  MAIN 

SC(I)=SC<I)/'CFL  MAIN 

SRTIP(I)=SRTIP(I)/'CFL  MAIN 

SAREAS(I)=SAREAS(I)^CFA  MAIN 

157  CONTINUE  MAIN 

T0G=T0G/CFT  MAIN 

T0U=T0WxCFT  MAIN 

P0=P0/CFP  MAIN 

T01D=T01D/CFT  MAIN 

P01D=P01D/CFP  main 

DSNASS=DSMASS/'CFM  MAIN 

852  CONTINUE  MAIN 

C  OTHER  INPUT  DATA  .  .  .  .  .  .  .  .  .  .  .  .  . . .  MAIN 

WKDQNE=1.0  MAIN 

IPRINT=1  MAIN 

DO  153  1=1. NS  MAIN 

FMR1(I)=0.6  MAIN 

FMA2(I)=0.G  MAIN 

153  CONTINUE  MAIN 

HK1=1.0  MAIN 

AK2=1.0  MAIN 

AK3=1.0  MAIN 

AAAIGU=SAREA(1)  MAIN 

RU=1545.3  MAIN 

RH0W=62.54  MAIN 

CPW=1,00  MAIN 

RA=RU/FMUA  MAIN 

RU=RU/FMWU  MAIN 

RCH=RU/FMWC  MAIN 

DELU=0.0  MAIN 

DELUU2=10.0  MAIN 

DELUL2=10.0  MAIN 

GC=3a.l74  MAIN 

AJ=778.1B  MAIN 

PAI=3. 1415926  MAIN 

DO  150  1=1. NS  MAIN 

AAREA(I)=PAI*((RRTIP(I)x12.0)**2-(RRHUB(I)/12.0)**2)*BL0CIC(I)  MAIN 

AAREASC I )=PAI*(SRTIP( I )**2-SRHUB(I)**2)^144.0*BLOCKS( I)  MAIN 

DELZ(I)  =  (RC(I)+SC(I))/'12.0  MAIN 

150  CONTINUE  MAIN 

NSl=NS-:l  MAIN 

AAREAS(NS1)=PAI*(SRTIP(NS1) **2-SRHUB (NS1)**2)/144. 0*BLOCICS ( NSl )  MAIN 

AAAR1T=AAREA(1)  MAIN 

DO  152  1=1. NS  MAIN 

AR£A(I)=SAREA(I)  MAIN 

AREAS(I)=SAREAS(I)  MAIN 

152  CONTINUE  MAIN 

AREAS! NSl )=SAREAS( NSl)  MAIN 

OT01G=T0G  MAIN 

OT01D=T0U  MAIN 

OP01=P0  MAIN 

DO  151  1=1. NS  MAIN 

UTIP( I )=RT( I )/12. 0*2. 0*PAI*FMD/60.0  MAIN 

UTIPG( I )=RRTIP( 1)^12. 0*2. 0*PAI*FND/60.0  MAIN 

UTIP2(  I  )=ST(  I  )/12. 0*2.0*PAI*FND/'60.0  MAIN 

UT I  PD  ( I )  =RT  ( I )  / 12 . 0*2 . 0«PAI  *FNDxG0 .0  MAIN 

U0U(I)  =  (UTIP(I)''UTIPD(I))**2  MAIN 

UMEAN(I)=RM(I)/12.0*2.0*PAI*FND^60.0  MAIN 

UMEAN2(I)=SM(I)/12.0*2.0*PAI*FND/60.0  MAIN 
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UHUB(  I  )=RH(  I  )/ia.  0*2. 0*Pfll*FriD/BO.O 
UHUB2(I)=SH(I)/12.0*2.0*Pfll*FND.'60.0 
IF(IRAD.EQ.l)  U(I)=UTIP(n 
1F(IRAD.E0.2)  U(I)=UMEAM(I) 

IFdRAD.EQ.S)  U(I)=UHUB(I) 

IF(IRAD.EQ.l)  UU2(1)=UTIP2(I) 

IF(IRAD.EQ.2)  UU2(I)==UnEAN2(I) 

IF(IRAD.EQ.3)  UU2( I )=UHUB2( I ) 

IF(IRAD.EQ.l)  RADI1(I)=RT(I) 

IF(IRAD.EQ.l)  RADiaCI)=ST(I) 

IF(IRAD,EQ.2)  RADIl(n=RI1(I) 

IF(IRAD.EQ.2)  RADI2(  n=SI1( I ) 

IF(IRAD.EQ.3)  RADI 1 ( I )=RH( I ) 

IF(IRAD.EQ.3)  RADI2( 1 )=SH( I ) 

151  CONTIMUE 
C+-MH 

C  BLADE  RESETTING 

DO  154  1=1. NS 

BET 1 MR ( 1 )=BET1MR( I )+DELBlR( I ) 

BET2MR ( I ) =BET2MR ( I) +DELB1 R ( I ) 

STAGER ( I ) =STAGER ( I ) +DELB 1 R ( I ) 

BET1MS( I )=BET1MS( I )+DELBlS( I ) 

BET2MS( I )=BET2MS( I )+DELBlS( I ) 

STAGES  ( 1 )  =STAGES  ( I )  +DELB 1 S  ( I ) 

154  CONTINUE 
TG(1)=T01D 
P(1)=P01D 

CALL  m  CSPD ( DSMASS . I STAGE ) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

ROTER  SPEED  AND  RADIUS  C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DO  155  1=1. NS 

UTIPC I )=RT( I )/ia. 0*2. 0*PAI*FN^60.0 
UTIPGC I )=RRTIP( I )/12. 0*2. 0*PAI*FN^S0.0 
UTIP2(  1  )=ST(  I  )/'12.0*2. 0*PAI*FN/'S0.0 
UTIPD(I)=RT(I)/12.0*a.0*PAI *FND/G0 . 0 
UOU(  I  )=(UTIP(  I  l/^UTIPDC  I )  )**2 
UMEAN( I )=RM( I V12. 0*2.0*PAI*FN/S0.0 
UMEAN2(  I  )=SM(  I  l-'ia.  0*2. 0*PAI*FN/e0.0 
UHUB( I )=RH( 1 1/12.0*2. 0*PAI*FN/e0.0 
UHUB2< I )=SH( I 1/12. 0*2. 0*PAI*FN/S0. 0 
IFdRAD.EQ.l)  Ud)=UTIPd) 

IFdRAD.EQ.2)  Ud)=UMEANd) 

IFdRAD.Ea.31  Udl=UHUBdl 
IFdRAD.EQ.il  UU2dl=UTIPadl 
IFClRAD.EQ.ai  UU2dl=UMEAN2dl 
IFdRAD.EQ.31  UU2d  l=UHUB2d  1 
IFdRAD.EQ.il  RADIldl=RTdl 
IFdRAD.EQ.il  RADI2dl=STdl 
IFdRAD.EQ.21  RADIldl=RMdl 
IFdRAD.EQ.21  RADI2dl=SMdl 
IFdRAD.EQ.31  RADIldl=RHdl 
IFdRAD.EQ.31  RADI2dl=SHdl 

155  CONTINUE 


C 

MASS  FLOE  RATE  C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
901  READ(5.2001  FAl 
200  FORMAT (F7. 51 
ISTAGE=0 
N=1 

IFCFAI.GT.l.Ol  GO  TO  938 
IFdPRINT.EQ.21  MRITE(G.ig71  FAI 
197  FORMAT dHl,2X.FFAI=P.F7. 51 
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FAIO=FftI 

MAIN 

491 

UZ=UTIPG(1)*FAI 

MAIN 

<32 

TG(1)=OT01G 

MAIN 

433 

U2ERO=0.0 

MAIN 

434 

UUZERO=0.0 

MAIN 

495 

RZERO=RRHUB( 1 ) 

MAIN 

496 

RRZER0»RRHUB(1) 

MAIN 

497 

IT1P=0 

MAIN 

498 

IITIP=0 

MAIN 

499 

DAUE(N)=0.0 

MAIN 

500 

DDAUE(N)=0.0 

MAIN 

501 

TH(1)=OT01D 

MAIN 

502 

TWW(1)=OT01D 

MAIN 

503 

IF(XDIN.GT.O.O)  DAUE(N)=DIN 

MAIN 

504 

IF(XDDIN.GT.O.O)  DDAUE(li)=DDIN 

MAIN 

505 

IF(XDIN.GT.O.O)  TU(l)=0'i01D 

MAIN 

506 

IF(XDDIN.GT.O.O)  TUW(1)=0T01D 

MAIN 

507 

P(1)=OP01 

MAIN 

508 

TB(1)  =  UlCBPTCTGd).  P(l)) 

MAIN 

509 

WS(l)  =  UICSHCTGCl)  .  P(l)  )*RHUmD/'100.0 

MAIN 

510 

PU=WS( 1 )*P( 1 V<US( 1 )+0.6213) 

MAIN 

511 

TDEW( 1 )=WICBPT(TG( 1 ) .PW) 

MAIN 

512 

XU(1)=XDIN 

MAIN 

513 

XUU(1)=XDI)IN 

MAIN 

514 

XUT(1)=XU(1)+XUW(1) 

MAIN 

515 

XUTQ=XUT(1) 

MAIN 

516 

XU(1)=WS(1)/(1.0+USC1))*(1.0-XWT(1)-XCH4) 

MAIN 

517 

XA=1 . 0-XWT(  1  )-XU(  1  )-XCH4 

MAIN 

518 

XG=XA+XU(1)+XCH4 

MAIN 

519 

XAIN=XA 

MAIN 

520 

XCH4IN=XCH4 

MAIN 

521 

ISTAGE=1 

MAIN 

522 

CALL  UICPRPC XA. XU( 1 ) . XCH4. TG( 1) • RMIXi CPHIX» GAMMA* G1 > GS»  G3) 

MAIN 

523 

GAMMAI=GAMI1A 

MAIN 

524 

RHOG(  1  )=P(  1  )/RmX/'TG<  1 ) 

MAIN 

525 

RHOA( 1 )*PC 1 VRA/TG( 1) 

MAIN 

526 

AMASSM=-1.0 

MAIN 

527 

AAA2=AAAIGIJ 

MAIN 

528 

AAA3=AAAIGU 

MAIN 

529 

CALL  14ICMAC  ( ISTAGE*  AMASSM*  TG(  1  )*  P(  1 )  •  M*  UZ*  C*  XUT(  1)  >  BETZSSCNSl )  * 

MAIN 

530 

$RMIX.CPMIX.AAA3) 

MAIN 

531 

RHOG( 1 )=( 1. 0+Ga*M**2)*«G3*RHOG(i) 

MAIN 

532 

RHOt1(  1  )=1 . 0/(  ( 1 . 0-XWT(  1 )  )/'RHOG(  1  )+XHT(  l)/RHOW) 

MAIN 

533 

MNASS  =  RH0M(1)*FAI*UTIPG(1)*AAA3 

MAIN 

534 

MMASSO=nMASS 

MAIN 

535 

WMASSO=MMASSO*XD I N 

MAIN 

536 

WWriASO=MMASSO*XDDIN 

MAIN 

537 

IFdPRIMT.EQ.a)  WRITE(6*5558)  MMASSO.XDIN*WMASSO,MMASS 

MAIN 

538 

5558  FORMATdH0.2X,4(F10.5.2X)) 

MAIN 

539 

DAMY=OT01G/518.Z 

MAIN 

540 

DAMY2=OPO 1/(14.7*144.0) 

MAIN 

541 

CMASS=MMASS*SQRT ( DAMY ) /DAMVa 

MAIN 

542 

AMASS  =  XA  *  MMAS3 

MAIN 

543 

WMASSd )  =XW  d )  *MMASS 

MAIN 

544 

WHMASSC 1 )=XUW( 1 )*MMASS 

MAIN 

545 

WTMASSCl )=XWT( 1 )*MMASS 

MAIN 

546 

UMASS  d ) =XU  d ) *MMASS 

MAIN 

547 

CHMASS=XCH4*MMA3S 

MAIN 

548 

GMASS( 1 )-MMASS-WTMASS( 1 ) 

MAIN 

549 

CMASS2=CMASS( 1 )*SQRT(DAMY)/DAMY2 

MAIN 

550 

AMO=AMASS 

MAIN 

551 

UMO=UMASS( 1 ) 

MAIN 

552 

CMO=CHMASS 

MAIN 

553 

GMO=GMASS( 1 ) 

MAIN 

554 

UMO=UMASS( 1 ) 

MAIN 

555 

UUMO>UMMASS( 1 ) 

MAIN 

556 

WTMO=HTMASS( 1) 

MAIN 

557 

TLMO=GMO+MTMO 

MAIN 

558 

TMMAS»MMASSO*AAARlT/AAAIGy 
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UMASTL=TUMftS+THUMAS 


INITIAL  UALUES 


TG(3)=TG(1) 

TW(3)=TU(1) 

TWW(3)=TWU(1) 

P(3)=P(1) 

TB(3)=TB(1) 

WS(3)=MS(1) 

TDEW(3)=TDEW(1) 

XU(3)=Xy<l) 

XG=XA+XLI(3)+XCH4 
XW(3)=XW(I) 

>W(3)=XUU(1) 

UNASS(3)=UMASS(1) 

UNASS(3)=UriASS(l) 

WUMASS(3)=WWt1AS3(l) 

WCENT=mASSO 

UMCENT=UUMASO  . 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

IGU  C 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  IGU  IMPINGEMENT 

CALL  UICISS(7fRAI]Il(l).  XU(l)  .  XG  >  RHOG(1).0.0>UZ.UU1»UUS.UU) 
AMIMPS=UU 

AMWAKS  =  AMIMPS  *  (1.0-PREB) 

AMREBS=AN I MPS*PREB 

C  ++++++++♦+++++++++++++++++++++++++++++♦+♦+♦++++++++++++++++++++++++++ 

C  IGU  UAKE 

n=2 

DAUE(2)=DAUE(1) 

DDAUE(2)»DDAUE(1) 

ALFA3=BET2SS ( NS 1 ) * ( FAID/FAI ) **( 1 . 0/7. 0 ) 

DUhKEM=0.0 

IF(XDIN.GT.O.O.OR.XDDIN.GT.O.O)  GO  TO  G28 
GO  TO  G29 

628  CALL  UICUAK(RH0G(1).UZ.DUAKE.DUAKEH) 

629  CONTINUE 

C  ++++++++++++++++++++++++++++++++++++++•«■++++++++++++++++++++++++++++++ 

C  IGU  OUTLET 

WNASS(3I  =  HMASS(l) 

XW(3)  =  XW(1) 

PRAT 10= 1.0 

TRATIO=1,0 

EFF=1.0 

AMIMPR=0.0 

AMREBR=0.0 

AMUAKR=0.0 

DELTGU=0.0 

DELTDW=0.0 

DELTGH=0.0 

DELTDH=0.0 

DELT=0.0 

DELP=0.0 

DMDTAU=0.0 

XU(3>=XU(1) 

XU(3)=XU(1) 

XMU(3)=XUU(1) 

UMASS(3)  =  UMASSCl) 
mMASS(3)=mMASS(l} 

UMASS(3)  =  UMASS(l) 

MS(3)  =  US(1) 

TDEW(3)=TDEH(1) 
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noon  nnon 


RH0A(3)  -  RHOA(l) 
RHOMO)  =  RHOM(l) 
RH0G(3)  =  RHOGCl) 
TG(3)  =  TG(1) 
TW(3)  s  TW(1) 
TUU(3)=TUU(1) 

P(3)  =  P(l) 

TB(3)  =  TB(1) 
XU(ei)=0.0 
XU(S)  =  0.0 

xuu(a)=o.o 
mpss(2)  =  0.0 
mnpss(2)=o.o 
unASS(S)  =  0.0 
US(2)  =  0.0 
RHOP(2)=0.0 
RHOh(S)  »  0.0 
RHaG(2)=  0.0 
TG(2)=0.0 
TW(2)  =0.0 
TUU(2)=0.0 
P(2)  =  0.0 
TB(2)  =  0.0 
TDEU(2)=0.0 
GAMhf40=CPMnP 
RH0G(2)=RH0G(1) 


900  lSTflGE=ISTAGE>l 

IF(IPRIt1T.EQ.2)  URITECG.SOOl)  FAIO.ISTPCE 
BOOl  FORMATCIHI.  IX. >«****•********••*••••  K,  IX, 


Sa'INITlAL  FLOW  COEFFICIENT-P,  1X,F5.3, 1X.P( ISTAGE*  #,12, IX, 
$# )  # .  2X.  )«***********••****••*#  ) 

TG(1)=TG<3) 

TW(1)=TW(3) 

TUU(1)=TWW(3) 

P(1)=P(3) 

TB(1)=TB(3) 

RH0A( 1 )=P( 1 )/RA/TG( 1 ) 

WS(1)=WS(3) 

TDEU(n=TDEW(3) 

XU(1)=XU(3) 

XCH4=CHMAS5/Mf1ASS 

XA=AMASS/'t1MASS 

XG=XA+XU(1)+XCH4 

XAIR(1)=XA 

Xf1ETAN(l)=XCH4 

XGAS(1)=XG 

Xg(l)=XW(3) 

XWU(1)=XUW(3) 

XUT(1)=XW(1)+XUW(1) 

UMASS(1)=UMASS(3) 

WMASS(l)=WnASS(3) 

uunASS(i)=uunAss(3) 

UTMASSC 1  )=Ut1ASS(  1  )HMnASS(  1 ) 
mASS=AMASS+CHMASS+UriASS(  1  )+MTHASS(  1 ) 

TMASSC 1  )»riMASS 

GMASS( 1 )*TMASS( 1 J-WTMASSt 1 ) 

ALFA1*ALFA3 

CALL  UICPRP  ( XA,  XU  ( 1 ) ,  XCH4,  TG(  1 ) .  RTIIX,  CPMIX.  CAttlA,  Cl ,  G2,  G3) 

GAnnAS=CAiiriA 

AAA1=AAA3 


STAGE  PERFORMANCE  CALCULATION 
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IF(IPERFM.EQ.l)  JPERFM=1 
IFCIPERFM.EQ.S)  JPERFM=2 
IFdPERFM.EO.S)  JPERFH=3 
DAMY=0.0 

IF(WTMASS( 1 ) .GT. 1 . OE-4) 

$DAt1Y=MMMftSS(  1  )/WTHASS(  1 ) 

IF(DAMY.GT.0.20)  JPERFM=3 
IF(IPRINT.EQ.2)  UR1TE(S.8000)  JPERFM 
8000  FORMAT(1HO.»<  STAGE  PERFORMANCE  CALCULATION  (JPERFM»»<.  I2»K  »«) 
IF(JPERFM.EQ.l)  GO  TO  1300 
IF(JPERFM.EQ.2)  GO  TO  1301 
IF(JPERFM.EQ.3)  GO  TO  1302 

1300  CALL  UICSPACFAIQ.ISTAGE.MMASS.ALFAl.UKDQNEtDAUECNl.XDIN.ETA. 

$EETA1 . BETA2. OZ. ALFA2. ALFA3. DELTG>  DELTU. Ml . U2. U1 . U2. U3»  AKl . AK3) 

GO  TO  1303 

1301  CALL  UICSPB(FAIO.ISTAGE.MMASS.ALFAl>UKDONE.DAUE(N).DELU.unASS(l) 
S.N.OMEGAl. 

$0MRGA2. 0MEGA3. 0MEGA4. OMEGAS*  OILGAS*  OMEGAT. BETAl . BETA2>  UZ>  ALFA2t 
$ALFA3. DELTG . DELTU . U 1 , U2. U 1 . U2*  U3. AK 1 . AK2. AK3 ) 

GO  TO  1303 

1302  CALL  UICSPCCFAIQ. ISTAGE.MMASS.ALFAl.U((DONE*DDAUE(N)>DELUtUMASS( 

$1) . UUMASS( 1 ) . N. OMEGAl 

$. 0MEGA2. QMEGA3. 0MEGA4. OMEGAS. OMEGAB. OMEGAT. BETAl. BETA2. UZ. ALFA2> 
$ALFA3. DELTG. DELTU. U1.U2.U1.U2.U3. REAUE. 0ELUU2. DELUL2. AKl . AK2. 

$AK3) 

1303  CONTINUE 
DELTG1=DELTG 
DELTU1=DELTU 

IF(UZ.LT.0,0.OR.U2.GT.1000.0)  URITEIB. 1304)  UZ 

1304  FORMAT!  IHO.  IX.  ^AXIAL  UELOCITY  IS  TOO  HIGH  OR  TOO  LOUX.»«UZ»X. 
SFIO.S) 

IF(UZ. LT. 0,0. OR. UZ.GT, 1000.0)  GO  TO  901 
AAA2=AREAS( ISTAGE) 

AAA3=AREA(ISTAGE+1) 

1F( ISTAGE. EQ. NS)  AAA3sAAA2 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

ROTOR  IMPINGEMENT  C 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  ROTOR  IMPINGEMENT! SMALL  DROPLET) 

IF!IPRINT.EQ.2)  URITE!e.8010) 

8010  FORMAT! 1H1.J<  ROTOR  IMPINGEMENTCSMALL  DROPLET)X) 

CALL  UICIRS!1STAGE.RADI1!ISTAGE).XU(1).XC.RH0G!1). BETAl. Ul.UUl. 
XUU2.UU) 

AniMPR=UU 

IF!AMIMPR.LT,0.0)  AMIMPR=0,0 
IF!AM1MPR.GT.UMASS! 1 ) )  AMIMPR»UMASS( 1 ) 

AnREBR=AMIMPR*PREB/100. 0 
AMUAKR=AM 1 MPR* ! 1 . 0-PREB^ 100.0) 

AMNOIR=UMASS!  1 ) -AM  I  MPR 
XUNOIRsAMNOIR.'MMASS 
XUREBRsAMREBR/MMASS 
yUUAKRsAMUAKR.'MMA^^ 

IF!IPRINT.EQ.2)  URITE!B,B09)  AMIW»R.AMREBR.AnWAKR. AMNOIR. 

SXUNOIR. XUREBR. XUUAKR 
609  FORMAT!  IH  .7!F12.S.  IX) ) 

C  ROTOR  IMPINGEMENT! LARGE  DROPLET) 

IF!IPRINT.EQ.2)  URITE!B.8020) 

8020  FORMAT!  1H0..<  ROTOR  IMPINGEMENT  (LARGE  DROPLEDP) 

CALL  UlCIRL ! ISTAGE .RADII! ISTAGE ) . XUU( 1 ) . XC> RHOC( 1 ) . BETAl . U1 . UUl . MU 
$2.UU) 

BMlMPRsUU 

IF!BM1MPR.LT.0.0)  BMIMPR=0.0 

IF !BMIMPR . GT . UUMASS! 1 ) )  BMIMPR-MUMASSC 1 ) 

BHREBR^BMIMPR-PREB/IOO. 0 
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BI1HAKR=BMIMPR*(  1 .0-PREB/100.0) 

BMNOIRaUUMflSSC 1 J-BMIMPR 
XUUB-0.0 

I F  ( UUMASS  ( 1 ) .  GT .  1 .  OE-6  )  XUUBoBTtMKR/VMmSSC  1 ) 

XUUNOR=BmOIR/MMPSS 

XUURER^BMREBR/HriPSS 

XUUUPR=BMUPKR/MI1PSS 

IFCIPRINT.EQ.R)  URITE(6.6090)  BMir«>R.BnREBR>BrWAKR>Bra>IOIR.XUmOR. 
SXUURER.XmUAR 
6090  FORMPTdH  .7(Fia.5.  IX) ) 


C 

ROTOR  WAKE  C 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

IF(IPRItiT.EQ.2)  URITE(6.8030) 

8030  FORMAT (IHO.^  ROTOR  UAKEX) 


N=N+1 

ALFA=BETA2 

DUAKEM=0.0 

IF(AMUAKR.GT.O.O)  GO  TO  630 
GO  TO  631 

630  CALL  UICUAK(RH0G(l).U2.DUAKEtl)UAKEM) 

631  D1=DUAKEM 
IF(Dl.LT.O.O)  D1=0.0 
IF(Dl.GT.DIM)  D1=DIN 
AMING1=AMUAKR 
ALFA=BETA2 
RDELU1=DELUU2 
DUAKEM=0.0 

IF(BMUAKR.GT.O.O)  GO  TO  6310 
GO  TO  6311 

6310  CALL  UICUAKCRHOGCD.RDELUl.DUAKE.OUAKEM) 

6311  1}2-0UAKEM 
IF(D2.LT.0.0)  D2=0.0 
IF(E2.GT.DDIM)  D2=DDIN 
RUP2= ( 90 . 0-BETA2 ) /180 . 0 
ANIMG2=BMUAKR«RUP2 
RDELU2=DELUL2 
OmKEM=0.0 

1F(6MUAKR.GT.0.0)  GO  TO  6312 
GO  TO  6313 

6312  CALL  UICUAK(RH0G(l).RDEL02«DUAKE.IMAKEn) 

6313  D3=DUAKEM 
IF(D3.LT.0.0)  D3=0.0 
IF(D3.GT.0IIIM)  D3»DDiri 
RL0H2= ( 90 . 0+BETA2) / 180 . 0 
AM  I  MG3=BMUAKR«RL0142 
UMASSS-UMASS ( 1 ) -AMUAKR 
mASSL=UUMASS( 1 )-BMUAKR 

CALL  UICSIZ(UMASSL.UMASSSfAMIMCl.AniriC2>AniNC3.inMUE(l 
t ) .  DAUE ( 1 ) . 01 . 02. 03. OLIMIT. AM8LL. Ara.GE. OSLL. OLGE) 
mMASS(2)sAMLGE 
UMASS(2)=AMSLL 

IF(UMASS(2).LT.0.0)  UHASSCBl^O.O 
IF(UUMASS(2).LT.0.0)  UUMASS(2)bO.O 
UTMASS  ( 2  )  bUUMASS  ( 2 )  -•■MMASS  (  2  ) 

UMASS(2)-UMASS(1) 

MMASS=AMASS-^CHMASS-^UMASS(  2  l-^UTtlASSCa) 

TMASS(2)=riMASS 

GMASS ( 2 ) »TMASS ( 2 ) -HTMASS ( 2 ) 

OAUE(N)sOSLL 

OOAUE(M)-OLGE 

XU  ( 2 )  ::|4MASS  ( 2 )  /MMASS 

XUU ( 2 ) >UUMASS ( 2 ) /MMASS 

XHT ( 2 ) =WTMASS ( 2 ) /MMASS 

XU(2)=XU(1) 

XCH4»CHMASS/MMASS 

XA-AMASS/MMASS 
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XG=XA+XU(2)+XCH4 

XAIR(S)«XA 

XMETAN(2)=XCH4 

XCAS(2)«XG 

US ( 2 ) =UMASS ( 2 ) /M1ASS 
PU-US(2)«P(2)/(US(2)-i-0.6219) 

TDEU(2)=UICBPT(TG(a).PU) 

RH0A(2)=P(2)/Rft/'TG(2) 

CALL  UICPRP ( XA.  XU( 2 )  >  XCH4.  TG(2) .RMIX. CPHIX. CAtttlA* Cl > G2> C3) 
RH0G(2)=P(2)/RMIX/TG(2) 

IF(JPERFM.ME.3)  BMASS=MttASS 
IF(JPERFM.EQ.3)  6HASS-GHASS(2) 

CALL  UICnAC(ISTAGE.BnASS.TG(2)fP(2)tn.UZ.C.XUT(2>.ALFA2» 
$RhIX.CP(1IX.AAA2) 

RH0G(2)=(  1 . 0+G2*I1**2)**G3*RHOG«2) 

RHOM  ( 2 ) = 1 . 0 /  (  ( 1 . 0-XUT  ( 2 ) ) /RHOG <  2  ) -t-XUT  (  2 ) /1;H0U  > 

RHOA ( a ) = ( 1 . 0+G2*M**2 ) **G3*RHOA ( 2 ) 

IF(IPRINT.EQ.2)  URITE(6.614)  U2.ALFA.Dl>D2iD3.UUMASS(2)> 

SUHASS ( 2 ) . UMASS ( 2 ) . XU ( 2 ) . XU ( 2 ) 

B14  FORhATClH  t 10(F12.S. IX) ) 

IF(IPRINT.EQ.2)  URxTE(G.61S)US(2).l]M£(N).DDAUE(t1).RH0n(2)>RH0A 
$(2).RHaN(2)>RH0G(2) 

615  FORMATCIH  .7<F12.S. IX)) 

IFCUZ.LT. 0.0. OR. UZ.GT. 1500.0)  URITE(6«6150) 

6150  FORMAT (1  HO. ><UZ  IS  TOO  HIGH  OR  TOO  LOU:  UZ=:<.F10.4)  _  _  _  _ 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

CENVRIFUGAL  ACTION  IN  ROTOR  C 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  CENTRIFUGAL  EFFECT  IN  ROTORCSMALL  DRW»LET) 

IFdPRINT.EQ.a)  URITE(6.8040) 

8040  FORMAT(1HO.»!CENTRIFUGAl  ACTION  IN  ROTOR  (SMALL  DROPLET)P) 

DELMU=0.0 

DELMAS=0.0 

RU=0.0 

RUU=0.0 

IF ( UTMASS(  1 ) . GT .  1 .  OE-6 )  RU»UMASS(  1  l^-UTMASSC  1 ) 

IFCUTMASSC 1 ) . GT . 1 . OE-6)  RUU=UUMASS( 1 )/UTMASS( 1 ) 

AMASU= ( UMASTL-UCENT-UUCENT ) *RU 
BMASU= ( UMASTL-UCENT-UUCENT ) *RUU*XUUB 
IF(DAUE(N-l).LT.1.0E-6)  GO  TO  996 
DD=DAUE(N-1) 

DELZZ=RC ( ISTAGE ) /12 . 0 
ALFAAU* ( BETAl +BETA2 ) /2 . 0 
IRS=2 

RH0GAS»RH0G(2) 

RHUB=RRHU6(ISTAGE) 

CALL  UICCENCRZERO.UZERO.DO.UZtOELZZ.ALFAAU  .FN. IRS.RHOGAS. 

IRHUB. R2. U2. ITIP. UZTIME. XG. XA.XU(2) .XCH4.RRTIP( ISTACE) ) 

CALL  UICDMSdPRINT. IRAO.UMASS(1).AMASU.AMASU.RZERO.R2.AAREA(ISTA 
$GE) .RADII ( ISTAGE) . RRTIP( ISTAGE). OniN. mOUT. AMASU2. DELMAS) 
UCENT=DELMAS 
RZER0=R2 
UZER0=U2 

996  DELMU=DELMAS  . 

C  CENTRIFUGAL  EFFECT  IN  ROTOR(LARCE  DROPLET) 

IFdPRINT.EO.2)  UR1TE(6.8050) 

8050  FORMAT!  IHO.P  CENTRIFUGAL  ACTION  IN  ROTOR  (LARGE  DROPLET)!*) 
DELMAS»0.0 
DELMUU»0.0 

IF(DDAUE(N-1).LT.1.0E-G)  GO  TO  999R 
DDsDDAUE(N-l) 

DELZZ-RC! ISTACE )^12. 0 

ALFAAU=0.0 

IIRS=2 

RH0GAS«RH0G(2) 

RHUB>RRHUBdSTACE) 
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MAIN 

876 

MAIN 

877 

MAIN 

878 

MAIN 

879 

MAIN 

880 

MAIN 

881 

MAIN 

882 

MAIN 

883 

MAIN 

884 

MAIN 

885 

MAIN 

886 

MAIN 

887 

MAIN 

868 

MAIN 

889 

MAIN 

850 

MAIN 

891 

MAIN 

892 

MAIN 

893 

MAIN 

894 

MAIN 

895 

MAIN 

896 

MAIN 

897 

MAIN 

898 

MAIN 

899 

MAIN 

900 

MAIN 

901 

MAIN 

902 

MAIN 

903 

MAIN 

904 

MAIN 

905 

MAIN 

906 

MAIN 

907 

MAIN 

908 

MAIN 

909 

MAIN 

910 

198 


non 


CALL  UICCEN(RRZER0.UUZERQiDDtUZ*I]ELZ2>ALFAAU  tFN.IIRS.RHOGASt 
IRHUB. R8. USf I ITIP. UZTIME. XG>XAt  XU(2) , XCH4»  RRTIPC ISTAGE) ) 

CALL  UICDMLC IPRINT. IRAD. UUnASS( 1 ) >  BHASUt  BHASU. RRZERO. RS> AAREAC IS 
STAGE ) . RADI 1 ( ISTAGE ). RRTIPC ISTACE) t  miN. DMOUT. AMASUS. DELMAS ) 
RRZERO>«S 
UUZER0-U2 
9S96  DELMMU-DELMAS 
msUMASsca) 

Um^UUMASSCB) 

UflASSC  2 )  -UMASSC  2 )  -^DELnU 
UUMASS  ( 2 )  >UUnASS  ( 2 ) -t-DELtlUU 
UTMASS  (  2  )  *UnASS  ( 2  )  ■•■UUM  ASS  (  2  ) 

IFCUTMASSCS) .GT.UMASTL)  TT=U'mASS(2)<'MMASTL 

IF(UTMASS(2).GT.mASTL)  UMASS(2)>4«1ASS(2)/’TT 

IF(UTMASS(2).GT.UriASTL)  UmASS(S)>UUnASS(2)m 

DELMU=UI1ASS(2)-I4n 

DELnUU^UUMASS ( 2 ) -UUH 

UTMASS  ( 2 )  xUMASS  ( 2  )  -t-UWIASS  (  2  ) 

DELMAS>UTMASS  C  2 ) -UTHASS ( 1 ) 

MMASS=mASS-^DELMAS 

XU ( 2 ) -UMASS ( 2 ) /MMASS 

XUU ( 2 ) -UUHASS ( 2 ) ^MMASS 

XU ( 2 ) -UMASS ( 2 ) /MMASS 

XA-AMASS/MMASS 

XCH4-CHMASS/MMASS 

XG=XA+XU(2)+XCH4 

DELUUMsRHOG ( 2 ) /RHOU«DELMAS 

hMASS=AMASS-DELUUM« ( AMASS/GMASSC2) ) 

UMASS ( 2 ) >UMASS ( 2 ) -DELUUM* ( UMASS ( 2 ) /GMASS ( 2 ) ) 
CHMASS=CHMASS-DELUUM* ( CHMASS/GMASSC  2 ) ) 

MMASS= AMASS-^UMASS  (  2 )  ^CHMASS-^UTMASSC  2  ) 

US ( 2 ) =UMASS ( 2 ) /MMASS 
UCENT-UCENT+DELMU 
UUCEMT==UUCEMT-»-DELMUU 
IF(UMASS(2).LT.1.0E-6)  DAUE(N)*0.0 
IF(UUMASS(2).LT.1.0E-6)  ODAUE(M)eO.O 


C 


STATOR  IMPIMGEMEMT  C 

C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  STATOR  IMPIMGEMEMTC SMALL  DROPLET) 

IF(IPRIMT.EQ.2)  URITECStSOSO) 

8060  FORMATCIHO.X  STATOR  IMPIMGEMEMT  (SMALL  DROPLEDP) 

CALL  UICISSC ISTAGE. RADI2( ISTAGE) . >0^(2) . XG. RH0C(2) . ALFA2. U2. 
SUU1.UU2.UU) 

AMIMPS^UU 

IF(AMIMPS.GT.UMASS(2))  AMIMPS»UMASS(2) 

IFCAMIMPS.LT.O.O)  AMIMPS=0.0 
AMREBS=AMIMPS*PREB/ 100.0 
AMUAKS*AMIMPS* ( 1 . O-PREB/100 . 0 ) 

IFCIPRIMT.EQ.Z)  URITECS.SID  XU(2).XG.RH0G(2).U2.UU. AMIMPS.AMRE 
SBS.AMUAKS 

B17  FORMATCIH  .8(F12.5.  IX) ) 

C  STATOR  IMPIMGEMENTCLARGE  DROPLET) 

IFC IPRINT. EQ.8)  URITE(6.8070) 

8070  FORMATCIHO.P  STATOR  IMPIMGEMEMT  (LARGE  DROPLET)^) 

CALL  UICISL(ISTAGE.RADI2(ISTAGC).XUU(8).XC.RH0C(2).ALFA2.U8.UU1 
S.UU2.UU) 

BMIMPSaUU 

IF(BMIMPS.LT.O.O)  BMIMPS*0.0 
IF(BMIMPS.GT.UUMASS(2) )  BMIMPS*UUMASS(8) 

BrREBS-BNIMPS*PI«B/l  00 . 0 
BMUAKS»BMI MPS* ( 1 . 0-PREB/ 100.0) 

IF(IPRIMT.EQ.2)  URITE(6.6617)  XlM(2).XA.RH0A(8).UZ.UU.BniMPS.BM 
SREBS.BMUAKS 

6617  FORMATCIH  .8(F12.5. IX) ) 

C 


MAIN 

Sll 

MAIN 

912 

MAIN 

913 

MAIN 

914 

MAIN 

915 

MAIN 

916 

MAIN 

917 

MAIN 

918 

MAIN 

919 

MAIM 

920 

MAIN 

921 

MAIM 

922 

MAIN 

923 

MAIN 

924 

MAIN 

925 

MAIN 

926 

MAIN 

927 

MAIN 

928 

MAIN 

929 

MAIN 

930 

MAIN 

931 

MAIN 

932 

MAIN 

933 

MAIN 

934 

MAIN 

935 

MAIN 

936 

MAIN 

937 

MAIN 

938 

MAIN 

939 

MAIN 

940 

MAIN 

941 

MAIN 

942 

MAIN 

943 

MAIN 

944 

MAIN 

945 

MAIN 

946 

MAIN 

947 

MAIN 

948 

MAIN 

949 

MAIN 

950 

MAIN 

951 

MAIN 

952 

MAIN 

953 

MAIN 

954 

MAIN 

955 

MAIN 

956 

MAIN 

957 

MAIN 

958 

MAIN 

959 

MAIN 

960 

MAIN 

961 

MAIN 

962 

MAIN 

963 

MAIN 

964 

MAIN 

965 

MAIN 

966 

MAIN 

967 

MAIM 

968 

MAIM 

969 

MAIN 

970 

MAIN 

971 

MAIN 

972 

MAIN 

973 

MAIN 

974 

MAIN 

975 

MAIN 

976 

MAIN 

977 

MAIM 

978 

MAIN 

979 

MAIN 

980 

199 


uou 


c 

C  STATOR  UAKE 

C 

CCC 

C 

C 

c 

MAIM 

MAIN 

MAIM 

HAIM 

981 

982 

983 

984 

IFCIPRINT.EQ.S)  URITE(6.8080) 

rlRlii 

riRiN 

985 

986 

8080 

F0RhAT(lH0.)<  STATOR  UAKE9«) 

MAIN 

98? 

N-N+l 

MAIN 

988 

ALFA=ALFA3 

MAIN 

989 

OUAKEtl-0.0 

MAIN 

990 

IFCAMUAKS.GT.O.O)  GO  TO  632 

MAIN 

991 

GO  TO  633 

MAIN 

992 

63S 

CALL  U1CUAK(RH0G(2).U3.0UAKE.DUAKEM) 

MAIN 

993 

633 

Dl^DUAKEM 

MAIN 

994 

IF(Dl.LT.O.O)  01=0.0 

MAIN 

995 

IF(Dl.GT.DIN)  D1=DIN 

MAIN 

996 

AniNGl=At1UAKS 

MAIN 

997 

ALFA=ALFA3 

MAIN 

998 

S0ELU1=0ELUU2 

MAIN 

999 

DUAKEM=0.0 

MAIN 

1000 

IF(BnUAKS.GT.O.O)  GO  TO  6330 

MAIN 

1001 

GO  TO  6331 

MAIN 

1002 

6330 

CALL  UICl4AK(RHOG(2).SDELUl.DUAKE.DUAKEn) 

MAIN 

1003 

6331 

D2=DUAKEn 

MAIN 

1004 

IFCOa.LT.O.O)  02=0.0 

MAIN 

1005 

IFCOa.GT.DOIM)  02=D0IN 

MAIN 

1006 

SUP2= ( SO . 0-ALFA3 ) / 180 . 0 

MAIN 

1007 

AMIMG2=6riUAKS*SUP2 

MAIN 

1008 

S0ELU2=0ELUL2 

MAIN 

1009 

OUAKEM=0.0 

MAIN 

1010 

IFCBMUAKS.GT.O.O)  GO  TO  6332 

MAIN 

1011 

GO  TO  6333 

MAIN 

1012 

6333 

CALL  UICUAK ( RHOG ( 2 ) . SDELU2. OUAKE. DUAKEH ) 

MAIN 

1013 

6333 

03=DUAKEM 

MAIN 

1014 

IF(B3.LT.0.0)  03=0.0 

MAIN 

1015 

IF(D3.GT.DD1N)  03=0DIN 

MAIN 

1016 

SLOUa=(90. 0+ALFA3)/180 . 0 

MAIN 

1017 

Ar(ir<G3=BrtUAKS«SL0U2 

MAIN 

1018 

mASSS=UMASS ( 2 ) -AdUAKS 

MAIN 

1019 

Ut1ASSL=UUriASS  ( 2 )  -BMUAKS 

MAIN 

1020 

IF(mASSS.LT.O.O)  WMASSS=0.0 

MAIN 

1021 

IF(mASSL.LT.O.O)  WnASSL=0.0 

MAIN 

1022 

CALL  UICSIZ(UMASSL.UriASSS.AI1iriGl*M1IliG2>Anil1C3.DDA0E(2)»DAUE( 

MAIN 

1023 

sa) .  D1  f  02>  03.  DLiniT.  AnSLL.  AMLCE.  Oa.L.  DLGE) 

MAIN 

1024 

UUdASS(3)=At1LGE 

MAIN 

1025 

WMASS(3)=AriSLL 

MAIN 

1026 

IF(HMASS(3).LT.0.0)  WMASS(3)=0.0 

MAIN 

1027 

IF(UmASS(3).LT.0.0)  WmASS(3)=0.0 

MAIN 

1028 

WTM  ASS  ( 3  )  =HUf1ASS  ( 2 )  +WMASS  ( 2 ) 

MAIN 

1029 

UMASS(3)=UMASS(2) 

MAIN 

1030 

MMASS= AMASS+CHMASS+UMASS( 3 ) +HTMASS<  3) 

MAIN 

1031 

TI1ASS(3)=t1f1ASS 

MAIN 

1032 

GMASS ( 3 ) =TM ASS ( 3 ) -UTMASS ( 3 ) 

MAIN 

1033 

DAUE(d)=OSLL 

MAIN 

1034 

DOAUE(ri)=DLGE 

MAIN 

1035 

XU  (  3 )  =UdASS  ( 3 )  /tiriASS 

MAIN 

1036 

XUU ( 3 ) =UUdASS ( 3 ) /dMASS 

MAIN 

1037 

XUT  ( 3 )  =UTMASS  ( 3 )  /Mtl  ASS 

MAIN 

1038 

XU(3)=XU(2) 

MAIN 

1039 

XA=AMASS/MMASS 

MAIN 

io<;j 

XCH4=CHMASS/MI1ASS 

MAIN 

1041 

XG=XA+XU(3)+XCH4 

MAIN 

1042 

XAIR(3)=XA 

MAIN 

1043 

XMETAN(3)=XCH4 

MAIN 

1044 

XGAS(3)=XG 

NAIM 

1045 

IF(UriASS0.LT.1.0E-6)  UdASS0=UnAS5(3) 

MAIN 

1046 

IFCUUHASO.LT.  1 . OE-6)  UU(1AS0=UUMASS(3) 

MAIN 

1047 

IF(MTt1ASS(3).GT.0.0)  RU=UnASS(3)/UTnASS(3> 

MAIN 

1048 

IF(UTdASS(3).CT.0.0)  RUU=UUf1ASS(3VUTNASS(3> 

MAIN 

1049 

TG(3)=TG(a) 

MAIN 

1050 

200 


non 


TM(3)=TU(2)  MAIN 

IF(IPRINT.EQ.S)  URITE(6.619)  I^A(2).UZ>ALFAf Dl.OSt MtWSSO)  MAIN 

«.MMASS(3)tUMASS(3).XU(3)tXU(3)  MAIN 

613  FORMATCIH  . lOCFlS.Si IX))  MAIN 

IF(IPRINT.EQ.S)  URITE(6.620)  DM)E(N).TG(3).TU(3)  MAIN 

620  FORMATCIH  t 3(F12.5. IX) )  MAIN 

IF(UMASS(2).GT.O.O.ANO.UUMASS(2).CT.O.O)  CO  TO  951  MAIN 

1F(UMASS(2).GT.0.0)  GO  TO  951  MAIN 

IF(mMA5S(2}.GT.0.0)  GO  TO  951  MAIN 

MS(3)=US(2)  main 

TB(3)*TB(2)  MAIN 

TDEU(3)=TDEU(2)  MAIN 

DELTG2-0.0  MAIN 

DELTG3=0.0  MAIN 

DELTU2=0.0  MAIN 

TRATI0=TG(3)/TG(1)  MAIN 

DAUE(N)=0.0  MAIN 

RH0A(3)=P(3)/RA^TG(3)  MAIN 

CALL  UICPRP(XA.XU(3).XCH4.TG(3)>RniX»CPMIX.CAMMA.Gl.C2tC3)  MAIN 

RH0G(3)=P(3)/RMIX/'TG(3)  MAIN 

IF(JPERFM.NE.3)  BMAS3=MMA33  MAIN 

IF(JPERFM.EQ.3)  BMASS=GMASS(3)  MAIN 

CALL  UICMAC(ISTAGE.BHASS.TC(3).P(3).M.UZ.C.XMT(3).ALFA3.  MAIN 

SRNIX.CPMIX.AAA3)  MAIN 

RH0G(3)=( 1 . 0+G2*M**2)**G3*RHOG(3)  MAIN 

RH0M(3)=1 .0/(  ( 1 .0-XUT(3)  )/'RH0G<3)+XMT(3)/RH0H)  MAIN 

RHOAC  3  > = ( 1 . 0+G2*M**2 ) **G3*RH0A(3)  MAIN 

CO  TO  950  MAIN 

951  CONTINUE  MAIN 

WTMASS(3)=UMASS(3)+UWMASS(3)  MAIN 

tCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  MAIN 

HEAT  TRANSFER  CALCULATION  C  MAIN 

C  MAIN 

C  HEAT-TRANSFER  (SMALL  DROPLET)  MAIN 

IF(IPRINT.EQ.2)  URITE(6.8120)  MAIN 

8120  F0RMAT(1H0.«!  HEAT  TRANSFERS)  MAIN 

DELTGH=0.0  MAIN 

DELTHH=0.0  MAIN 

1F(DAUE(N-2).GT.O.O.AND.OAUE(N).GT.O.O)  GO  TO  8121  MAIN 

GO  TO  8122  MAIN 

8121  RE:=0.0  MAIN 

XU1=(XU(1)+XU(3))^2.0  MAIN 

XH1=(XW(1)+XW(3))^2.0  MAIN 

UMASS1=(UMASS( 1 )+UMASS(3) )/2.0  MAIN 

UMASS1=(UMASS( 1 )+UMASS(3) )/2.0  MAIN 

CPG1=XA*MICCPA( TG( 1 ) )+XU( 1 )*HICOT«TC( 1 ) )+XCH4»WICCPC(TC(l ) )  MAIN 

CPG3=XA*UICCPA(TG(3) )+XU(3)*WICCPH{TG(3) )+XCH4*HICCPC(TC(3) )  MAIN 

CPG»(CPGl+CPG3)-'2.0  MAIN 

CALL  UICHET(TG(l)fTG(3)fTU(l)fTI4(3)»DAUE(N-2)tDAUE(N)  MAIN 

9f OELZC ISTAGE ) >  UZ. UMASSl . UMASSl r  AMASSr  CHMASS*  CPC>  CPU. OELTCH  MAIN 

S.DELTUH.RE)  MAIN 

8122  DELTG2=DELTGH  MAIN 

DELTU2*DELTHH  _  _  MAIN 

C  HEAT  TRANSFER (LARGE  DROPLET)  MAIN 

DELTGHoQ.O  MAIN 

DELTUH=:0.0  MAIN 

IF(DCAUE(N-2).GT.O.O.AND.DAUE(N).CT.O.O)  CO  TO  8123  MAIN 

GO  TO  8124  MAIN 

8123  RE»0.0  MAIN 

IF(DDAUE(N-1).GT.0.0)  RE-REAUE  MAIN 

XUl=(XU(l)+XU(3))/2.0  MAIN 

XUls(XUU(l)-«-XUU(3))/2.0  MAIN 

UMASS1>(UUMASS(  1  )+UUMASS(3)  l/'E.O  MAIN 

UMASS1>>(UMASS(  1  )-i-UMASS(3))/2.0  MAIN 

CPG1-XA*UICCPA(TG(  1 )  )+XU(  J *HICCPH(TG(  1 )  )*XCH4*UICCPC(TG(  1 )  )  MAIN 

CPG3*XA*WICCPA(TG( 1 ) )+XU(3)«UICCPH(TG(3) )+XCH4*HICCPC(TG(3) )  MAIN 


1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 


uuu 


CPG=(CPGl+CPG3)^a.O 

CALL  UICHET(TG(l).TG(3).TVM(l).TUU(3).0IMUE(N-a)fDDAUE(l<l) 

S. DELZ( ISTAGE ) . UZ. UMASSl . UMASSl t  AMASS. CHHASS. CPC. CPU. OELTCH 
S.DELTUH.RE) 

8124  DELTG3=DELTGH 
EELTU3=DELTUH 

TG(3)=TG( 1 )+DELTGl-DELTG2-DELTG3 
TU ( 3 ) =TU ( 1 ) +DELTW 1 +DELTH2 
TUU(3)=TUW(1)+DELTU3 
TRATI0=TG(3)/TG(1) 

IF(IPRINT.EQ.2)  URITE(6.827)  0ELTG2.DELTU2.DELTG3.DELTU3.TG(3). 
$TW(3),TUU(3).TRATI0 
G27  FORMATCIH  .8(F1S.6. IX) ) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

MASS  TRANSFER  CALCULATION  C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
IF(IPRIMT.EQ.2)  URITE(6.8130) 

8130  FORMATClHO.Ji  MASS  TRANSFER**) 

DAUEN2=DAUE(N-2) 

DAUEN=nAUE(N) 

D2=DELZ(1STAGE) 

RE=0.0 

DMDTAU=0.0 

IF(DAUE(N-2).GT.0.0.AND.DAUE(N).GT.0.0)  GO  TO  63B 
GO  TO  G37 

636  CALL  U1CMAS(US(1).TU(1).TU(3).P(1).P(3).TG(1).TG(3).DZ.PUB1.PUB2 
$. PUl . PU2. UZ. DAUEN2. DAUEN. HU2. UMASS( 1 ). UHAS52. UHASSC 1 ) . UMASS2. 
SDMDTAU. AMASS. RE) 

637  DMDTA1=DMDTAU 
IF(DMDTAl.LT.O.O)  DMDTA1=0,0 
DA0EN2=DDAUE<N-2) 

DAUEN=DDAUE(N) 

DZ=DEL2(ISTAGE) 

RE=0.0 

DMDTAU=0.0 

IF(DDAUE(N-1).GT.O.O.AND.DDAUE(N).GT.O.O)  RE=REAUE 
IF(DDAUE(N-2).GT.0.0.AND.DDAUE(N).GT.0.0)  GO  TO  6360 
GO  TO  6370 

6360  CALL  UICMAS(US(1).TUU(1)>TUU(3).P(1).P(3).TG(1).TC(3).DZ.PUB1.PUB2 
S. PUl . PU2. UZ. DAUEN2. DAUEN. HU2. UMASSC 1 ) . UMASS2. UUMASSd  > . UMASS2. 
SDMOTAU. AMASS. RE) 

6370  DMDTA2=DMDTAU 

IF( DMDTA2.lt. 0.0)  DMDTA2=0.0 
UMASS ( 3 ) =UM ASS ( 3 ) -DMDT A 1 
UUMASS ( 3 ) =UUMASS ( 3 ) -DMDTA2 

UMASTL=UMASTL-( DMDTA1+DMDTA2)«AAREAS( ISTACE)^AAA2 
IF (UMASTL.lt. 0.0)  UMASTL=0.0 
IF(UMASS(3).LT.0.0)  UMASS(3)=0.0 
!F(UUMASS(3).LT.0.0)  UUMASS(3)>*0.0 
UTMASS ( 3 ) =UMASS  ^  3 ) +UUMASS ( 3 ) 

UMASS ( 3 ) =UMASS ( 3 ) +DMDTA 1 +DMDTA2 
MMASS=AMASS+CHMASS+UMASS  <  3 ) +UTMASS<  3) 

TMASS(3)=MMASS 

GMASS ( 3 ) =TMASS ( 3 ) -UTMASS  <  3 ) 

XU  ( 3 )  =UMASS  ( 3 )  -'MMASS 

XUU ( 3 ) =UUMASS ( 3 ) ^MMASS 

XUT ( 3 ) lUTMASS ( 3 ) ^MMASS 

XU ( 3 ) =UMASS ( 3 ) /MMASS 

XA=AMASS/MMASS 

XCH4=CHMASS^MMASS 

XG=XA+XU(3)+XCH4 

XAIR(3)=XA 

XMETAN(3)=XCH4 

XGAS(3)=XG 

US ( 3 ) «UMASS ( 3 ) /AMASS 

PU=US(3)*P(3)/(US(3)+0.B219) 

TDEU(3)»UICBPT(TG(3).PW) 


MAIN 

1121 

MAIN 

1122 

MAIN 

1123 

MAIN 

1124 

MAIN 

1125 

MAIN 

1126 

MAIN 

1127 

MAIN 

1128 

MAIN 

1129 

MAIN 

1130 

MAIN 

1131 

MAIN 

1132 

MAIN 

1133 

MAIN 

1134 

MAIN 

1135 

MAIN 

1136 

MAIN 

1137 

MAIN 

1138 

MAIN 

1139 

MAIN 

1140 

MAIN 

1141 

MAIN 

1142 

MAIN 

1143 

MAIN 

1144 

MAIN 

1145 

MAIN 

1146 

MAIN 

1147 

MAIN 

1148 

MAIN 

1149 

MAIN 

1150 

MAIN 

1151 

MAIN 

1152 

MAIN 

1153 

MAIN 

1154 

MAIN 

1155 

MAIN 

1156 

MAIN 

1157 

MAIN 

1158 

MAIN 

1159 

MAIN 

1160 

MAIN 

1161 

MAIN 

1162 

MAIN 

1163 

MAIN 

1164 

MAIN 

1165 

MAIN 

1166 

MAIN 

1167 

MAIN 

1168 

MAIN 

1169 

MAIN 

1170 

MAIN 

1171 

MAIN 

1172 

MAIN 

1173 

MAIN 

1174 

MAIN 

1175 

MAIN 

1176 

MAIN 

1177 

MAIN 

1178 

MAIN 

1179 

MAIN 

1180 

MAIN 

1181 

MAIN 

1182 

MAIN 

1183 

MAIN 

1184 

MAIN 

1185 

MAIN 

1186 

MAIN 

1187 

MAIN 

1188 

MAIN 

1189 

MAIN 

1190 

202 


••  i  jK-  -  • 


non 


RHOA  ( 3 1  =P  ( 3 ) /'RA/'TG  ( 3  ) 

CALL  UICPRP ( XA. XU( 3 ) t  XCH4i TG(3) •RMIX. CPMIX. GAMMA. Gl.Ga.G3) 
RH0G(3)=PC3)/'RMIX/TG(3) 

IF(JPERFt1.NE.3)  BMASS=MMASS 
IF(JPERFM.EQ.3)  BMASS=GMASS(3) 

CALL  UICMAC(ISTAGE.BMASS.TG(3).P(3).M.UZ.C.XUT(3).ALFA3. 
$RMIX.CPMIX.AAA3) 

RHOG  (3)=(1.0+G2*M**2)  **G3*RH0G  (  3  ) 

RH0M(3)=1 .  Oz-C  ( 1 . 0-XUT(3)  )/RH0G(3)+XUT(3)/RH0M) 

RHO A ( 3 ) = ( 1 . 0 +G2«M**2 ) **G3*RH0G ( 3 ) 

TB(3)=W1CBPT(TG(3),P(3)) 

IF(IPRINT.EQ.2)  URITE(6.624)  UUMASS(3).XMU(3)>DDALIE(N).UMASS(3). 
$UMASS(3).XU(3).XU(3).US(3).DAUE(N) 

624  FORMATCIH  ,9(F12.5.  IXn 

IF(IPRiriT.EQ.2)  URITE(G.B25)  RH0A(3).RH0M(3).RH0G(3).DMDTA1.DMD 
$TA2.PW2.TU(3).TG(3) 

S25  FORMATCIH  ,8(F12.5. IX) ) 

950  DELTGW=DELTG1 
DELTDU=DELTW1 
DELTGH=-DELTG2-DELTG3 
DELTDH=DELTU2 
DELP=P(3)-P(1) 

GAMMA0=GAMMA 

TBC3)=WICBPT(TG(3).P(3))  .  _  _ 

CCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

OUTPUT (3TAGE  PERFORMANCE)  C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
IF(IUNIT.NE.2)  GO  TO  853 
WMASSC 1 )=WMASS( 1 )*CFM 
WMASS ( 3 ) =WM ASS ( 3 ) *CFM 
WUMASSC 1 )=WUMASS( 1 )*CFM 
UUMASS(3 )=UMMASSC  3)«CFM 
WTMASSC 1 )=WTMASS( 1 )*CFM 
WTMASS ( 3 ) =WTMASS ( 3 ) *CFM 
AMASb=AMA3S*CFM 
CHMASS=CHMASS*CFM 
UMASSC 1 )=UMASS( 1 )*CFM 
UMASS ( 3 ) =UMASS ( 3 ) *CFM 
GMASSC 1 )=GMASS( 1 )«CFM 
GMASS ( 3 ) =GMASS ( 3 ) *CFM 
TMASSC 1 )=TMASS( 1 )*CFM 
TMASS ( 3 ) =TMASS ( 3 ) *CFM 
RHOA(l)=RHOA(l)*CFD 
RH0A(2)=RH0A(2)*CFD 
RH0A(3)=RH0A(3)*CFD 
RH0M(1)=RH0M(1)*CFD 
RH0M(2)=RH0M(2)*CFD 
RH0M(3)=RH0M(3)*CFD 
RHOG(l)=RHOG(l)»CFD 
RH0G(2)=RH0G(2)*CFD 
RK0G(3)=RH0GC3)*CFD 
TG(1)=TG(1)*CFT 
TG(2)=TG(2)*CFT 
TG(3)=TG(3)*CFT 
TW(1)=TH(1)*CFT 
TU(2)=TM(2)*CFT 
TM(3)=TH(3)*CFT 
TWW(l)=Tm(l)*CFT 
TWW(2)aTUW(2)*CFT 
TMW(3)=TWWC3)*CFT 
P(l)=P(l)*CFP 
P(2)=P(2)*CFP 
P(3)=P(3)*CFP 
TB(1)=TB(1)*CFT 
TB(2)=TB(2)*CFT 
TB(3)=TB(3)*CFT 
TDEH(1)=TDEU(1)*CFT 
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1191 

MAIN 

1192 

MAIN 

1193 

MAIN 

1194 

MAIN 

1195 

MAIN 

1196 

MAIN 

1197 

MAIN 

1198 

MAIN 

1199 

MAIN 

1200 

MAIN 

1201 

MAIN 

1202 

MAIN 

1203 

MAIN 

1204 

MAIN 

1205 

MAIN 

1206 

MAIN 

1207 

MAIN 

1208 

MAIN 

1209 

MAIN 

1210 

MAIN 

1211 

MAIN 

1212 

MAIN 

1213 

MAIN 

1214 

MAIN 

1215 

MAIN 

1216 

MAIN 

1217 

MAIM 

1218 

MAIM 

1219 

MAIN 

1220 

MAIN 

1221 

MAIN 

1222 

MAIN 

1223 

MAIN 

1224 

MAIN 

1225 

MAIN 

1226 

MAIN 

1227 

MAIN 

1228 

MAIN 

1229 

MAIN 

1230 

MAIN 

1231 

MAIN 

1232 

MAIN 

1233 

MAIN 

1234 

MAIN 

1235 

MAIN 

1236 

MAIN 

1237 

MAIN 

1238 

MAIN 

1239 

MAIN 

1240 

MAIN 

1241 

MAIN 

1242 

MAIN 

1243 

MAIN 

1244 

MAIN 

1245 

MAIN 

1246 

MAIN 

1247 

MAIN 

1248 

MAIN 

1249 

MAIN 

1250 

MAIN 

1251 

MAIN 

1252 

MAIN 

1253 

MAIN 

1254 

MAIN 

1255 

MAIN 

1256 

MAIN 

1257 

MAIN 

1258 

MAIN 

1259 

MAIN 

1260 

203 


1 


TDEW(2)=TDEW(2)»CFT 

MAIN 

1261 

TDEU(3)=TnEW(3)*CFT 

MAIM 

1262 

853 

CONTI MUE 

MAIN 

12E2 

URITE(E.  400.1  FAIO.ISTAGE 

MAIM 

12S4 

400 

FORMAT  ( IHl .  iX.  ;;«*  :»»*«.'*«»***********  ix# 

MAIM 

1265 

< 

5;^INITIAL  FLOW  COEFFICIENT^?!.  1X.F7.S. lX.»s(ISTAGE=  ^.I2.1Xt 

MAIN 

1266 

< 

p?!  2X> 

MAIM 

1267 

PRATI0=P(3)-'P(1) 

MAIN 

1268 

rRATIO!--TGCCi/TG(l) 

MAIN 

1269 

GFi  ;MAU-  ( GAMMAS+GAMMAO  )  /2 . 0 

MAIN 

1270 

G4=  ( C  AI1MAU- 1 . 0  )  ^GAMMAU 

MAIN 

1271 

ETAA ( I STAGE  J  =  ( PRAT 1 0*  «  G4- 1 . 0 ) 7 ( TRATIO-1 . 0 ) 

MAIN 

1272 

WRITE(G.40£J  JPERrII 

MAIN 

1273 

4oa 

FORMAT! 1H0.5X.PSTAGE  PERFORMANCE  AFTER  INTER-STAGE  ADJUSTMENT?!t 

MAIN 

1274 

$;i(JPERn1=3:,  11,^)^) 

MAIN 

1275 

URITE(G. 40 : J  PRATIO. TRATIO, ETAA( ISTAGE) 

MAIN 

1276 

401 

FORMAT! IHO.JX.^STAGE  TOTAL  PRESSURE  RATI0=P,F12.5./. 

MAIN 

1277 

JGX.^iSTAGE  TOTAL  TEMPERATURE  RATI0=;<.F12.5,.S 

MAIN 

1273 

^GX,?:STAGE  AOIAEAl  IC  EFFICIEI'ICY=;‘.F12.5) 

MAIN 

1273 

Mf?ITE!e.40£3) 

MAIM 

1260 

4025 

FORMAT!iHO.  i2X,?“!>3TAGE  INLET**s*.4X.?!~*STAGE  OUTLET**;^. 

MAIN 

1281 

Si4X.!‘o»3TAGE  OUTlET«-»v:j 

MAIM 

1282 

URITE!6.40£Gj 

MAIN 

1263 

4026 

FORMAT!IH  , 33X. ?!< BEFORE  INTER-?!, GX,J«!AFTER  IntER-j!) 

MAIN 

1284 

I!RITE!G.4027j 

MAIM 

1285 

4027 

rijRNAT!lH  .34X.-73TAGE  ADJUST-?!, 7X, ;!STAGE  ADJUST-?!) 

MAIN 

j.doo 

WRITE!6.40£e) 

MAIN 

1237 

4028 

FORMAT!  IH  .  34X.  ?!|-iENT );!,  i5X, ?MENT)?:) 

MAIN 

1288 

URITE(G.40S)  XU(1).  XU!1).  XU!3) 

MAIN 

1289 

403 

FORMAT!  IH  .  3X.  3!F15.5,5X) ) 

MAIN 

1290 

IJ.!:(TE!G,40SJ  XWd).  XW!1)  .  XU!3) 

MAI  It 

1261 

40G 

F  ORMAT!  IFI  ,  SX.  ;!XL:=?--.  3!F15.5, 5X) ) 

MAIN 

1292 

U'RITE! 6. 4CL0 )  XWl-'!  1 ) ,  XUW!  1 ) .  XMM!3) 

MAIM 

1253 

40G0 

FORMAT!  IH  .  JX,  ?X'.-:W=s:.3!FlS.5.5X) ) 

MAT- 

12S4 

RRITE!G.40Gi)  XUT! 1 ) , XJT! 1 ).XWT!3) 

Mrn,lT 

1255 

4061 

FORMA f!  IH  ,  5X.  ?XI4 1  =?!,  3! F1S.5, 5X)  ) 

'iF-liT 

» .'AS 

WRITEkG,4062)  XA1R(1),XAIR!1),XAIR!3) 

jN 

7  597 

4062 

FORMAT!  IH  .  5X.  ?XAIR-?!.  3iF15.5,5X)  ) 

VaM 

12;S 

WRITE!G.4063)  XMETAM! 1 ),XMErAM!l),XMETAN!3) 

MAIM 

12f9 

4063 

FORMAT! IH  , 'JX. ?XM£TAN=j-S 3!F15.5,5X) ) 

MAIN 

1300 

WRI  lE(G.4C'&  i)  XGA5!1).XGAS!1),XGAS!3) 

MAIN 

1301 

4064 

FORMAT  <  ih  .  'j,U  ?XLA5?,  3!F15.b.5X)  ) 

MAIM 

1302 

WP1IE!G,4C7'  WMASS!1).  MMAS3!1)  .  MMASS!3) 

MAIM 

13C3 

407 

FORMAT ! IH  ,5X. IASS=?. 3!F15.5,5X) ) 

MAIM 

1304 

RRI TE!  6,  **0?  0 )  WUMASS!  I ) ,  HHMASS!  1 ) ,  WHMASS! 3) 

MAIN 

■205 

4070 

FORi lAT !  IH  ,  bX .  ;-RNMASS=;!.  3 ! F 15. 5, 5X)  ) 

MAIM 

1306 

l:RITE!G,  407). )  HTMASS^  1 ) ,  WTMASS!  1  ),HTMASS! 3) 

MAIN 

1307 

4071 

FORI  lAT  !  IH  ,  5X ,  ?14TMASS^? .  3 !  F 1 5 . 5 , 5X )  ) 

MAIN 

1308 

NR  n  L !  6 . 4C 72 )  Af  LASS ,  f ii IASS ,  AMASS 

MAIM 

1303 

4072 

rORMArriH  .bX,?^AiiH33=?.3!F15.5.5X)) 

MAIN 

13.' 0 

WR I  TE  ( 6 . 40 73 )  CHM  ASS .  CHi  (ASS .  CHMASS 

MAIN 

1311 

4073 

F ORMAV!  IH  .  SX,  ?CITMASS==:i .  3!F15.5, 5X)  ) 

MAIN 

1312 

URITE!G.4CSj  UMASSU)  ,  UMASSIl)  ,  UMASS!3) 

MAIN 

1313 

408 

F  ORMAT !  IH  .  LX ,  !£UMASS=?:  .3!ri5.5,5X;) 

MAIM 

13. '.4 

N,.  n  E  ( 6 . 4060 )  GMASS  ( 1 ) .  GMASS !  1 ) ,  GMASS!  3 ) 

MAIN 

1315 

4080 

F  ORMAT !  IH  ,  SX ,  ?GM ASS=-?  ,  3 !  F 1 5 . 5 .  5X ) ) 

MAIN 

1316 

WRITE ! 6, 40L 1 )  TMA35 ! 1 J , TMASS ! 1 ) , TMASS! 3 ) 

MAIN 

1317 

4081 

FORf lAT !  1 H  .  5X ,  ;!TMASS=?!  •  3 !  F 1 5 . 5, 5X )  ) 

MAIN 

13.8 

WRITE!S,400)  WS!i)  .  N3(l)  ,  WS(3) 

MAIN 

13.'9 

409 

FORMAT! IH  ,'.,X,!!W0=?!,3!F1S.5.5X)) 

MAIN 

1320 

URITE!Gr410)  RHOAM)  ,  RH0A!2)  ,  RKOAI3) 

MAIM 

1321 

410 

FORMAT  ( IH  ,  5X,  ?!rHOA=?!,  3 !  F  IS .  5.  SX ) ) 

MAIN 

1372 

wr?iTE!B.411)  RHCM!1),  RH0tl!2),RH0f1!3) 

MAIN 

1323 

411 

FORMAT !  IH  ,  bX ,  ?RMa?1=7, 3 <  F 15 . S,  5X )  ) 

MAIN 

.'.314 

URITE!6.4i£j  RHOG! 1 ) ,RHCG!2) ,RH0G!3) 

MAIN 

1325 

412 

FORMAT !lh  .5X.?!k(.0G=^s!.3!F15.5,5X)) 

MAIN 

1336 

WRITE!G,413)  TG< 1 ) , TG\2) ,TC( 3) 

MAIN 

13, ‘'7 

413 

FORMA  f !  1 H  ,  5X ,  ?!TC=-.! ,  3 !  r  1 5 .  S ,  5X ) ) 

MAIN 

1328 

WRITE(S,414)  r'i!l  J.TU(2),TW!3) 

MAIN 

1323 

414 

FORMAT! IH  ,LX, ?TW=?,3> FIS.S- SX) ) 

MAIN 

1310 

204 

1 


1 


j 


i 


4.1.5 


41G 


422 


WRTTE(G.4i40>  TWWU ) . TWW(2)f TMU(3) 

4140  FORIIATCIH  .  5Xt  ;!Tl.iW-^'^.:j(F15.5.5X)  ) 

URITE':G.415j  P(l).H:2j.P(3) 

FORMftTdH  .5>;.^P^;^,3(Fi5.5.5X)) 

WPnE(G.41t;  >  TBai.TBi,2),TB(3) 

FORtlATC IH  , EX. STB=^. S^FIS.S.SX) ) 

UR I TE ( G . 422 )  TD£U ( 1 ) . TDEU( 2 ) . TDEW ( 3 ) 

FGRMATC IH  . 5X, ;:TDEU=;  . 3(F15.5.5X) ) 

IF(IUNIT.NE.2)  CG  fO  854 
UMASSC 1  )=UI'HSS(  1  i.^CFM 
UMASS ( 3 ) =WNASS ( 3 ) /CFM 
UUriASS(  l)=UUrlASSt  1.  )/CFM 
UUNA5S  ( 3 )  -UUMASS  ■  3 1  /-CFM 
UTtlASSC  1  )-UTMAS5i.  1  ^/CF;1 
I  IT  M  ASS  ( 3 )  =UTM  AS5  ( 3 1  /  CF  M 
AilASS=AHA35/CFM 
CHMASS=CHMASS/CFM 
UMASSC 1  )=UnASS(  1)  -CFtl 
ufiASS  ( 3 )  ='jnASS  ( 3  ;•  /cFn 
GMASSC 1  l^^GrtASSa  )  /"CFtl 
GMASS  ( 3  J  =nM  ASS  ( 3 )  /CFt1 
TilASSC  1  )=TI-IASS(  1  j/Crii 
TMASS  ( 3 )  =TI1A3S  ( 3 )  /CFH 
RHOACl )=RH0A(1)^CFU 
RHaA(2)=RH0A(2>/CK'J 
RH0A(3)=RHDAi.3).CrD 
RHOM(n=RHOMci)/'CFD 
RHOM ( 2 ) =RHOM ( 2 ) ^CFD 
i:;-!0t-H3)^RH0M(3l-CFD 
RAaC(l)=RH0G(l)/C:-‘U 
ni-iaG(2)=RH0G(2)/CFl) 

Ri-iUG(3)=RHQG(3)/C''D 
TG<;2)=YC-(2)/CFT 
TGCSJ^^TGOJ^'CFT 
VU(1)=TW(.U/CFT 
ri-!(2)=TU(2)/CFT 
TU(3)=TU(3)/CFT 
riJUd  j=TUW(l)/CFT 
VWW(2)=TUW(2)/CrT 
7UW(3)=TWU(3)/CFT 
P(1)=P(1)/CFP 
Pi:2)=P(2)/CFP 
PC3)=P(3)/CFP 
TB(l)=TB(i)/CFT 
rB(2)=TB(2)^CFT 
TIJ(3)=TB(3)  ^CFT 
TECi-l(i  )=TDEU(i)/’CFT 
TDEU(2)=TDEU(2)/CFT 
™-:Uf3.i  =  TD£Ui3)/CFT 

comt;:uu£ 

C  ++++^•*r■•^+  +  +  +  r  +  +  T^-+  +  +  +  •r  +  v^ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccx 
c  c 

C  BOILING  C 

c  c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

iFiXDIN.GT.O.O)  GO  TO  4G0 
GO  10  450 

IF(TUC3).LT.TB(3))  GO  TO  450 

115. 3272-0. G84030S>aB(3)-4S0.0) 

DAMY=CPG/HU-i  ( TG  ( 3 )  -TB  ( 3 ) ) 


854 


460 


451 


XE=DAMV/(DAi-;Y+1.0) 
IFkXE.GT.XU(3’)  GO  TO  451 
XEUAPO-X.E 
TU(3)=TB(3:. 
rG(3)=rB(3) 
>U(3)=XW(3)-XEUAP0 
XU(3)=X0(3)+XE0Ai'l’ 

GO  TO  452 
XEUAP0=X(-K3J 
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1332 

MAIN 

1332 

MAIN 

1334 

MAIN 

1335 

MAIN 

122E 

MAIN 

1337 

MAIN 

13:  ,8 

MAIN 

1339 

MAIN 

1240 

MAIN 

1341 

MAIN 

12*^2 

MAIN 

1343 

MAIN 

1344 

MAIN 

1345 

MAIN 

1346 

MAIN 

1347 

MAIN 

1348 

MAIN 

13‘'-9 

MAIN 

1350 

MAIN 

1351 

MAIN 

1352 

MAIN 

1353 

MAIN 

1354 

MAIN 

1355 

MAIN 

135G 

MAIN 

1357 

MAIN 

12SE 

MAIN 

1255 

MAIN 

1380 

MAII-: 

13S1 

MAIN 

1382 

MAIN 

1335 

MAIN 

13b4 

MAIN 

13S5 

MAIN 

13CS 

MAIl'l 

13G7 

MAIN 

1283 

MAIN 

13G9 

MAIN 

1370 

MAIN 

1371 

MAIN 

1372 

MAIN 

1373 

MAIN 

1374 

MAIN 

1375 

MAIN 

137G 

MAIN 

1377 

MAIN 

1378 

MAIN 

1379 

MAIN 

1380 

MAIN 

1381 

MAIN 

1382 

MAIN 

1383 

MAIM 

1384 

MAIN 

1385 

MAIN 

138G 

MAIN 

13o7 

MAIN 

1388 

MAIN 

1383 

MAIN 

13S0 

MAIN 

1391 

MAIN 

1352 

MAIN 

1333 

MAIN 

1384 

MAIN 

1355 

MAIN 

1283 

MAIN 

1357 

MAIN 

1393 

MAIN 

1398 

MAIN 

1400 

TU(3)=0.0  MAIN 

TG(3)=TG(3)-XM(3)/(I.0-XW(3))*HU/CPG  MAIN 

XM(3)=0.0  MAIN 

XU(3)=XU(3)+XEUAP0  MAIN 

452  WMASS(3)=XU(3)*MMASS  MAIN 

UNASS(3)=XU(3)*MMASS  MAIN 

GMASS(3)=UMASS(3)+AMASS  MAIN 

IF(IPRINT.EQ.2)  WRITE(6f453)  MAIN 

453  rORMATdHO.^^BOILINGP)  MAIN 

IFdPRINT.EQ.a)  WRITE(Bi454)  HU,XEUAP0*TW(3).TG(3)tXH(3),XUC3)  MAIN 

$ . UMASS ( 3 ) >  GMASS  >  UMASS ( 3 ) . MMASS  MAIN 

454  FORMATdH0.10(F10.5.2X))  MAIN 

450  CONTINUE  MAIN 

C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  MAIN 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  MAIN 
C  C  MAIN 

C  BLEED  C  MAIN 

C  C  MAIN 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  MAIN 
AMASS=AMASS»d .  0+XGlBLDdSTAGE)  )  MAIN 

CHMASS=CHMASS* ( 1 , 0+XG3BLD ( ISTAGE ) )  MAIN 

UMASS ( 3 ) =UNASS ( 3 ) *  d . 0+XG2BLD ( ISTAGE ) )  MAIN 

WMASS( 3 ) =MMASS ( 3 ) *  d . 0+XWBLD ( ISTAGE ) )  MAIN 

UUMASS ( 3 ) =UUMASS ( 3 ) • d . 0+XUUBLO( ISTAGE ) )  MAIN 

UTMASS  ( 3 )  =WMASS  ( 3 )  +UmAS3  (  3  )  MAIN 

MMASS=ANASS+CHMASS+UMASS ( 3 ) +UTMASS( 3 )  MAIN 

TMASS(3)=MMASS  MAIN 

GMASS(3)=TMASS(3)-UTMASS(3)  MAIN 

XU(3)=UMASS(3)/MMASS  MAIN 

XUU(3)=UUMASS(3)^MMASS  MAIN 

XWT(3)=WTI1ASS(3)-'NMASS  MAIN 

XU(3)=UMASS(3) /MMASS  MAIN 

XA=AMASS/(iMASS  MAIN 

XCH4=CHMASS/NMA3S  MAIN 

XG=XA+XU(3)+XCH4  MAIN 

XAIR(3)*XA  MAIN 

XMETAM(3)=XCH4  MAIN 

XGAS(3)=XG 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  MAIN 
C  C  MAIN 

C  REPEAT  C  MAIN 

C  C  MAIN 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  MAIN 
IF( ISTAGE. EQ.NS)  GO  TO  902  MAIN 

GO  TO  300  MAIN 

902  OUALPR=P(3)/OP01  MAIN 

QUALTR=TG(3)/OT01G  MAIN 

GAMMAU=(GAMMAI+GAMMAO)/2.0  MAIN 

G4=(GAMMAU-1.0)/GAHMAU  MAIN 

OUALEF=  ( 0UALPR*»G4- 1 . 0 )  /  (  OUALTR-l .  0  )  MAIN 

ODELTG=TG(3)-OT01G  MAIN 

ODELTU=0.0  MAIN 

DELTWH=0.0  MAIN 

DELMT=0.0  MAIN 

DELMUT=0.0  MAIN 

DELNG=0.0  MAIN 

IF(XDIN.GT.O.O)  ODELTH=TW(3)-OTOID  MAIN 

IF(XDDIN.GT.O.O)  DELTUU=TMW(3)-0T01D  MAIN 

DELMT=(MMAS3-TLM0)/TLM0  MAIN 

IF(WTMO.GT.O.O)  DELMWT=(WTMASS(3)-HTM0)/HTM0  MAIN 

DELMG=(GMASS(3)-GM0)/GM0  _  _  __  MAIN 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  MAIN 
C  C  MAIN 

C  OUTPUT  (OUERALL  PERFORMANCE)  C  MAIN 

C  C  MAIN 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  MAIN 
CCMASS=CMASS*AAAR1T/AAAIGU  MAIN 

C2MASSaCMASS2«AAARlT/AAAICU  MAIN 
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1401 

1402 

1403 

1404 

1405 
1408 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 
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IF(IUNIT.NE.a)  GO  TO  855 

T0G=T0G*CFT 

P0=P0*CFP 

CMASS=CMASS*CFM 

CCMASS=CCMASS*CFM 

Ct1ASSS=C.(ASSa*CFM 

Cat1ASS=CaMASS*CFM 

ODELTG=ODELTG*C:-T 

855  CONTINUE 
URITE( 8.481) 

481  FORHATdHl. ;<**•»******  OUERALL  PERFORMANCE  **«***»*«^) 
URITE(G>4aaO)  FAIO 

4880  FORMAT(1H0.1X,;<INITIAL  FLOW  COEFFICIENT*^. F7.S) 

WRITE(G.4a3)  CRPM.FNF 

483  FORMATdHO.lX.XCORRECTED  SPEED*>«.F7.1.5X.F5.3.  IX. 

SssFRACTION  OF  DEIGN  CORRECTED  SPEEDS) 

WRITE(6.484)XDIN.XDDIN.XUT0.RHUHID.XCH4IN 

484  FORMATdHO.lX.XINITIAL  WATER  CONTENTtSMALL  DROPLET ) =P,F5. 3. X. 
SaX.XINITIAL  WATER  CONTENTCLARGE  DR0PLET)*K.FS.3./. 
SSX.PINITIAL  WATER  CONTENT (T0TAL)**«,F5. 3.  z'. 

$8X.s<INITIAL  RELATIUE  HUMIDITV=»<,F5.1.  IX.XPER  CENTP./. 
*8X.»!INITIAL  METHANE  C0NTENT=»<.F5.3) 

WRITE(G.4a5)  TOG 

485  FORMATCIHO.IX.XCOMPRESSOR  INLET  TOTAL  TEMPERATURE-P.F8.8) 
WRITE(G.486)  PO 

488  FORMAT (IHO.  IX. ^COMPRESSOR  INLET  TOTAL  PRESSURE^J^.FlO.a) 
CCMASS=CMASS*AAAR1T/'AAAIGU 
CSM ASS=CMASS8* A AAR 1 T/AAAI GU 
WRITE(G.487)  CMASS.CCMASS 

487  FORMAT (IHO. IX. ^CORRECTED  MASS  FLOW  RATE  OF  MIXTURE*^. F6.3. 

^ .  FG  •  3.  X )  ?^ ) 

WRITE (6. 488)  CMASS8. C8MASS 

488  FORMATClhO.lX.XCORRECTED  MASS  FLO!  RATE  OF  GAS  PHASE  P.F6.3. 
$?!(X.FG.3.X)X) 

WRITE(G.4a9)  OUALPR 

489  FORMATdHO.lX.xQUERALL  TOTAL  PRESSURE  RATI0=!‘.F8.4) 
WRITE(6.430)  OUALTR 

430  FORMATdHO.lX.xQUERALL  TOTAL  TEMPERATURE  RATI0-P.FS.4) 
WRITE(B.431)  OUALEF 

431  FORMATdHO.lX.XOvERALL  ADIABATIC  EFFICIENCY*»«.F6.4) 

WRITE (6. 438)  ODELTG 

438  FORMAT (IHO. IX. XOUERALL  TEMPERATURE  RISE  OF  GAS  PHASE*P.F8.3) 
IF(IUNIT.NE.a)  GO  TO  85G 
T0G=T0G/'CFT 
P0=P0/'CFP 
CMASS=CMASS-'CFM 
CCMASSsCCMASS/CFM 
CMASS8=CMASS8/'CFM 
C8MASS=CaMASS/CFM 
ODELTG=ODELTG/CFT 

856  CONTINUE 
GO  TO  901 

998  STOP 
END 

C  ++++++++++++++++++++  .++++++++•♦■++•••+♦++++++♦++++♦++++++♦•♦+♦++♦+++ 


SUBROUTINE  WICSPA(FAIO. ISTAGE.MMASS. ALFAl.WKOOME.OAUE.  XDIN.ETA. 

$BETA1 . BETA8. UZ. ALFA8. ALFA3. DELTG. DELTW. W1 . W8. U1 . US. U3. AKl . AK3) 
REAL  M.MMASS 
COMMON  TD(7).IUNIT 
COMMON  CFL. CFT. CFP. CFD. CFM. CFU.CFA 
COMMON  JPERFM. RHOG( 3 ) . RERUP. RERLOM. RESUP. RESLOW 
COMMON  PREB.RRTIP(8).SRTIP(8).AAA1.AAA8.AAA3.SAREA(6).SAREAS(7) 
COMMON  P(3).TG(3).XA.XU(3).XCH4.XW(3).XWU(3).XWT(3).TW(3).TWU(3) 
COMMON  OMEGS( 7) . OMEGR( 6 ) . GAPR(6) . CAPSCG) 
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COMMON  RRHUB(6)  .  RC(6)  .  R6LADE(6)  .  STAGER(G)  UICSPA 

COMMON  SRHUB(7)  .  SC(?)  .  SBLA0E(7)  .  STRCES(7)  UICSPA 

COMMON  SIGUMRCG)  ,  BETISRCG)  .  BETESR(6)  .  PINCSRCG)  •  ADEUSRCG)  UICSPA 

COMMON  SIGUMS(7)  ,  BET1SS(7)  .  BETSSS(7)  .  AINCSS(7)  .  ADEUSS(7)  UIC^A 

COMMON  UTIPG(6).UTIP(6).UTIPD(6).U0U(B).UMEAN(G).UHUB(6)tU(6)tFftI  UICSPA 

COMMON  AREA ( G ) .  AREAS ( 7 ) . UU2 ( G ) . UTIP2(6) . UMEAN2(6 ) . UHUB2( 6 ) > IPRINT  UICSPA 

COMMON  ICENT.IICENT.FMRl(G).FMA2(6)»IDESIN>rAID  UICSPA 

COMMON  NS.NS1.RT(6)>RM(6).RH(6).ST(6).SM(G),SH(6)  UICSPA 

COMMON  0SMASS.AAREA(7).AAREAS(7).PRi2D(6>.PR130(6)>ETAR0(6)  UICSPA 

COMMON  DR(G).DS(G).DEQR(G).0EQS(6).B.0CK(G).BL0CKS(7)  UICSPA 

COMMON  BETlMR(G).BET2MR(G).BETlMS(7).BET2MS(7).RADn(6)>RA0I2(6)  UICSPA 

DIMENSION  RH0M(a).ETAA(8)  UICSPA 

CPU=1.0  UICSPA 

RH0U=G2.3  UICSPA 

CALL  UICPRP(XA.XU(l).XCH4.TG(l).RMIX.CPMIX»CAMMAfCl.C2.G3)  UICSPA 

RHOG(l)=P(l)^RMIX/TG(l)  UICSPA 

BMASS=MMASS  UICSPA 

CALL  UICMAC(ISTAGE.BMASS.TG(l).P(i).M.UZ,C.XUT(l).ALFAl.  UICSPA 

SRMIX.CPMIX.AREACISTAGE))  UICSPA 

ASPEED=C  UICSPA 

RHOG(1)=(1.0+G2«M  **2)»*G3*RH0C(1)  UICSPA 

RHOMC 1  )=1 . 0/(  ( 1 . 0-XUT(  1 )  )/'RHOG<  1  )+XWT(l  )/'RHOU)  UICSPA 

UZ=BMASS/RHOM( 1 )/AREA( ISTAGE)  UICSPA 

U22=U2  UICSPA 

FA1=U2/UTIPG( ISTAGE)  UICSPA 

IF(IPR1NT.EQ.2)  URITE(6tG02)  ISTAGE  UICSPA 

B02  F0RMAT(1H1,1X.»!R0TER  INLET  ISTAGE=P.I2)  UICSPA 

XG=XA+XU(1)+XCH4  UICSPA 

IF(IPRINT.EQ.2)  URITE(G.GOl)  ASPEED.RHOG(l).RHOM(l).XC.XUT(l),  UICSPA 

$RHCG(l).FAI.U2tUTIP  UICSPA 

GOl  F0RMAT(1H0,3(F12.5.1X))  UICSPA 

C  +++++++++++++++++++++++++++++++++++++++++++++-M-+'f+++'*-f++++++4-M>++++++  UICSPA 
C  UELOCITY  TRIANGLE  UICSPA 

CALL  UICUT( ISTAGE. ASPEED. ALFAl . UZ. Ul, USl . USl. BETAl . U1 . BETA2,  UICSPA 

$US2. US2. ALFA2>  U2. U2. ALFA3. U3>  AKI . AK3)  UICSPA 

DELUS=US1-WS2  UICSPA 

iF(IPRINT.EQ.2)  URITE(G.GOS)  UICSPA 

G05  FORMATdHO.lX.PUEL  TRIX)  UICSPA 

IFdPRINT.EQ.Z)  URITECG.GOG)  ALFAl. UZ. 01. USl. USl. BETAl. U1.BETA2.  UICSPA 
*US2.US2  UICSPA 

GOG  FORMATdHO.lOCFia.S,  IX))  UICSPA 

IFdPRINT.EQ.2)  URITE(G.S07)  ALFA2.U2.U2.ALFA3.DELUS.U3  UICSPA 

G07  FORMATCIH  .G(F12.5. IX) )  UICSPA 

C  ++++++++++++++<■++++++++++++++++++++++++++++++++++++++++++++++++++♦+++  UICSPA 
C  PERFORMANCE  CURUE  UICSPA 

CALL  UICSCCCFAI.SAI.ETA.TAU. ISTAGE)  UICSPA 

ETAA(ISTAGE)=ETA  UICSPA 

1F(SA1.GT.1.0.AND.ETA.GT,0.0)  GO  TO  203  UICSPA 

IFdPRINT.EQ.2)  URITE(G.204)  ISTAGE.FAI.SAI.ETA.TAU  UICSPA 

204  FORMATdHO.XFAI  IS  TOO  BIG  OR  TOO  SMALLE  AT  ISTAGE=X.  UICSPA 

$I2.2X.4(F6.4.5X))  UICSPA 

GO  TO  301  UICSPA 

203  DELT=TAU*TDdSTAGE)*UOUdSTAGE)  UICSPA 

DELHIN=UICCPA(TGd))*DELT  UICSPA 

DELHM=DELHIN  UICSPA 

DELHG=DELHM»d.O-XUd))  UICSPA 

DELHU=DELHM*XUd)  UICSPA 

DELHUU=0.0  UICSPA 

DELTUU^O.O  UICSPA 

CPG=CPMIX  UICSPA 

DELTG=DELHG/CPG/’(XU(  1)+XA+XCH4)  UICSPA 

IF(XDIN.GT.O.O)  GO  TO  850  UICSPA 

DELTU=0.0  UICSPA 

GO  TO  8S1  UICSPA 

850  DELTU=DELHU^CPU/XUd)  UICSPA 

851  PRAT10=(DELTG/TGd)*ETA+1.0)**Gl  UICSPA 

P(3)*PRATI0*Pd)  UICSPA 

P(2)«P(3)  UICSPA 

TG(2)*TGd)+DELTG  UICSPA 

TU(2)=TUd)+DELTU  UICSPA 
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TG(3)=TG(2) 

TU(3)=TU(2) 

IF(IPRINT.EQ.2)  URITE(G.S03) 

603  FORtIRTdHO.lX.piPERFQRHPNCE  CURUE^) 

IF(IPRINT.EQ.2)  URITE(6f604)  FAI.SAI>ETA.TMJ>DELT.PfmTI0>P(3)> 
$DELH1N 

604  FORMPTCIH  .8(F12.5i IX) ) 

IF(IPRIIiT.EQ.2)  URITE(6.6S0)  DELT. DELHTI. DELHC. DELHU. DELTG. OELTU 
650  FORMPTdH  .6(F12.5.  IX) ) 

901  RETURN 
END 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE  UICSCC  C 

C 


SUBROUTINE  UICSCC ( F8I . SAI . ETA. TAU. ISTAGE ) 


X=FAI 

IF( ISTAGE. EQ.l)  GO  TO  11 
IF( ISTAGE. EQ. 2)  GO  TO  12 
IF( ISTAGE. EQ. 3)  GO  TO  13 
IFdSTAGE.EQ.4)  GO  TO  14 
IFdSTAGE.EQ.5)  GO  TO  IS 
IFdSTAGE.EQ.6)  GO  TO  16 

11  Al=26.456 

B1 =-366. 48033 
01=2161.46222 
Dl=-6670. 16668 
E1=11405.SS5S7 
Fl=-10280. 00001 
G 1=3822. 22223 
A2=-120.02 
B2=1599.02 
C2=-8730. 12223 
D2=250S8. 33336 
E2=-39922. 22228 
F2=33466. 66671 
G2=-1155S.S5557 
A3=-0.34 
B3=0.226 
GO  TO  200 

12  Al=-4.285 
Bl=65. 44567 
Cl =-332. 95889 
Dl=907.0 

El =-1375. 55556 
Fl=1093. 33334 
G1 =-355. 55556 
A2=116.32 
B2=- 1354. 73334 
02=6515.80003 
D2=- 16503. 33341 
E2=23266. 66677 
F2=-17333. 33341 
G2=5333. 33336 
A3=-0.055 
B3=0.095 
GO  TO  200 

13  Al*154. 07500 
Bl=-1761. 37834 
01=8374.33337 
Dl=-21034. 16678 
E1=2S450. 00013 
Fl=-21800. 00010 
G 1=6666. 66670 
A2=-492.54 
82=5539.88003 
C2=-2S815.48301 
02=63806.66696 
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Ea=-88155.5559B 
F2=64533.333B3 
Ga=- 19555. 55585 
fl3=-0. 1333333 
83=0.1539999 
GO  TO  200 

14  81=75.43300 
Bl=-8e0. 85834 
Cl=4090. 41113 
Dl=-10210. 83338 
£1=14147.77784 
Fl=-10333. 33338 
01=3111.11113 
82=-l 182. 22001 
82=13501.23873 
C2=-83739. 07807 
82=159218.86740 
E2=-221844. 44546 
£2=183488.88741 
Ga=-49777. 77800 
A3=-0.04 
83=0.092 

GO  TO  200 

15  Al=-105. 07400 
81=1149.70487 
Cl=-5143. 83224 
81=12189.83339 
El=-1813a. 88897 
£1=11320.00008 
G1 =-3288. 88891 
A2=352.04 
82=-3991. 84002 
82=18707.68897 
02=-4e346. 86688 
£2=64088.88918 
£2=-46933. 33355 
02=14222.22229 
63=-0. 1066666 
83=0.12999959 
GO  TO  200 

16  fll=-110. 32400 
81=1282.14134 
C1=-612B. 79558 
81=15550.00007 
El=-22068. 88899 
£1=16586.86674 
Gl=-5155.55558 
A2=-175.54 
82=1836.93001 
C2=-7955. 44448 
82=18268.33342 
E2=-2341 1.11123 
£2=15866.66675 
G2=-4444. 44447 
A3=-0.2S5 
83=0.21375 

200  SA1»A1+B1*X+C1*X*»2+DI*X**3+E1*X**4+F1*X**5*G1»X«N»S 
ETA=A2+B2*X+C2*X**2+D2*X**3+E2*X**4*F2«X**5+G2»X**6 
TAU=A3*X+B3 
RETURM 
ENO 
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REAL  M.MHASS 

COMMON  TD(7).IUNIT 

COMMON  CFL.CFT.CFP,CFD,CFM.CFU.CFA 

COMMON  JPERFM.RH0G(3).RERUP.RERL0U.RESUP>RESLQU 

COMMON  PREB.RRTIP(8)tSRTIP(8)tAAAl>AAA2»AAA3>SAREA(6).SAREASCr) 

COMMON  P(3).TG(3).XAfXU(3).XCH4.Xkl(3)tXUU(3)»XUT(3)«TU(3)>TUU(3) 

COMMON  0MEGS(7).QMEGR(6).CAPR(6)»CAPS(6) 

COMMON  RRHUBCG)  .  RC(6)  .  Rffi.AnE(6}  .  STAGER(B) 

COMMON  SRHUB(7)  .  SC(7)  .  SBLADE(7)  .  STAGES(7) 

COMMON  S1GUMR(6)  .  BET1SR(6)  >  BETSSR(G)  >  AINCSRCB)  >  ADEUSRCB) 
COMMON  SIGUMS(7)  .  BET1SS(7)  .  BETgSS(7)  .  AINCSS(7)  ,  ADEUSS(7) 
COMMON  UTIPG(6).UTIP(B).UTIPl)(B).U0U(B).UMEAN(B)fUHUB(B).U(B)»FAI 
COMMON  AREA(6).AREAS(7).UU8(B).UTIPS(B).UMEANS(6).UHUB2(B)>IPRINT 
COMMON  ICENT.IICENT.FMRl(B).FMAS(B).IDESIN.FAIO 
COMMON  NS.NS1.RT(6).RM(B).RH(B).ST(B).SH(B).SH(B) 

COMMON  DSMASS.AAREA(7).AAREAS(7).PR120(B).PR130(B)tETARD(B) 

COMMON  DR ( 6 ) . OS ( B ) . DEQR ( 8 ) . OEQS ( B ) • BLOCK ( B ) >  BLOCKS ( 7 ) 

COMMON  BETlMR(BJ.BET2MR(B).BETlMS(7).BET2MS(7)>RADIl(B).RADia(6) 
DIMENSION  RH0M(3).ETAA(B) 

AJS778.26 

PAI=3.141S92B 

CPU=1.0 

RHQUs62.3 

GC=32.174 

CALL  UICPRP ( XA. XU ( 1 ) • XCH4. TG( 1 ) . RMIX>  CPHIX. GAMMA. G1 . G2. C3) 

GAMMA l^GAMMA 

RHOG ( 1 ) =P ( 1 J /RMIX/TG< 1 ) 

BMASS=MMASS 

AAA2=AREAS(ISTAGE) 

AAA3=AREA(ISTAGE-^1) 

IF(ISTAGE.EQ.NS)  AAA3=AAA2 

CALL  UICMAC ( ISTAGE. BMASS. TG( 1 ) . P( 1 > . M»  UZ. C. XUT( 1) . ALFAl . 
SRMIX.CPMIX.AAAl) 

ASPEED=C 

ASPED1*ASPEED 

RHOG(1)«=(1.0+G2*M  **2)**G3»RH0G(1) 

RHOM(  1  )al .  0/'(  ( 1 . 0-XWT(  1 )  )^RHOG(  1  )+XUT(  I  )/RHOH) 

UZ1=UZ 

UZZ=UZ 

FAI1=UZ1/UTIPG( ISTAGE) 

ALFAIR  =  ALFAl  *  PAI  /  180.0 
U1  =  UZ  /  COS  (  ALFAIR  ) 

USl  =  UZ  *  TAN  (  ALFAIR  ) 

WSl  =  U( ISTAGE)-  USl 
T  =  HSl  /  UZ 
BETAIR  =  ATAN  (  T) 

BETAl  =  BETAIR  *  180.0  ^  PAI 

TT  =  UZ  **2  +  WSl  **2 

W1  =  SORT  (  TT  J 

AMACHl  «  W1  /  ASPEED 

ANAC1=U1/ASPEED 

TS1=TG( 1 )/( 1 . 0+G2*AMACl**a) 

PS1=(TG( 1 )/TSl )**(-Gl )*P( 1 ) 

PREL 1 = ( 1 . 0+G2*AMACH 1 **2 ) **G1«PS1 
TREL1=( 1 . 0+G2*AMACHl**2)*TSl 
JJJsl 

2000  U22AS=:UZ 

CALL  WICGSL ( OMEGR ( ISTAGE ) . SIGUIRI ISTAGE) * BETISRC ISTAGE) » BET2SR( 1ST 
SAGE ) >  AINCSR ( ISTAGE ) . ADEUSRC ISTAGE ) . AMACHl. BETAl. DEQ. DEON. SITACS. 
SSITACN. BET2N. OMEGAN. FMRl ( ISTAGE). IDESIN. AKl . AK2. AK3. UZl . UZ2AS. 

SU ( ISTAGE ) . RADI 1 ( ISTAGE ) . RADI2( ISTAGE ) ) 

IFdPRINT.EQ.Z)  WRITECB.ISO)  OMEGR(ISTAGE).SIGUMR(ISTACE). 

SBETISRC ISTAGE) . BET2SR( ISTAGE). AINCSRC ISTAGE) .ADEUSRI ISTAGE) . 
SAMACHl . BETAl . DEQ. DEON. SITACS. SITACN. BET2N. OMECAM 
190  FORMAT! IHO. IX. 14(F7.3.2X)) 

DEQRRsDEQN 

SITACR=S1TACN 

A1NCIR*BETA1-BET1MR( ISTAGE) 

ADEUIR«BET2N-BET2MR( ISTAGE) 
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WICSPB  35 
WICSPB  3B 
WICSPB  37 
WICSPB  38 
WICSPB  39 
WICSPB  40 
WICSPB  41 
WICSPB  42 
WICSPB  43 
WICSPB  44 
WICSPB  45 
WICSPB  48 
WICSPB  47 
WICSPB  48 
WICSPB  49 
WICSPB  50 
WICSPB  51 
WICSPB  52 
WICSPB  53 
WICSPB  54 
WICSPB  55 
WICSPB  SB 
WICSPB  57 
WICSPB  58 
WICSPB  59 
WICSPB  60 
WICSPB  61 
WICSPB  62 
WICSPB  63 
WICSPB  64 
WICSPB  65 
WICSPB  66 
WICSPB  67 
WICSPB  68 
WICSPB  69 
WICSPB  70 
WICSPB  71 
WICSPB  72 
WICSPB  73 
WICSPB  74 
WICSPB  75 
WICSPB  76 
WICSPB  77 
WICSPB  78 
WICSPB  79 
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IFCIPRINT.EQ.a)  URITE(6il91)  AINClR.RINCSRdSTAGE)# AOEUIR. 

UICSPB 

80 

SADEUSRCISTAGE) 

UICSPB 

81 

191  FOR!1AT(lH0.1X.4(r7.3.2X)) 

UICSPB 

82 

OMEGAlsOMEGAN 

UICSPB 

83 

BETA2=BET2N 

UICSPB 

84 

BETA2RaBETfi2*PAI/'180 . 0 

UICSPB 

85 

U2=UZ-'CQS(BETA2R) 

UICSPB 

86 

UG=(Ul-fU2)/2.0 

UICSPB 

87 

Ot1EGAP=0.0 

UICSPB 

88 

IF(XU(l).GT.O.O) 

UICSPB 

89 

$CALL  UICSDL(RC( ISTAGE) , SIGUMRC ISTACE) . BETAl. BETA2. UC. RHOGC 1 ) . 

UICSPB 

90 

$UMAS.  AAAI .  IJZ.  IPRINT.  QMECAP  ) 

UICSPB 

91 

0HEGA2=0MEGAP 

UICSPB 

92 

DELP2=OMEGA2*0.5*RHOG<  1  )/'GC*(Ml**2) 

UICSPB 

93 

OMEGASsO.O 

UICSPB 

94 

DELP3=0.0 

UICSPB 

95 

BETA2R  =  BETA2  *  PAI  /  180.0 

UICSPB 

96 

JJ=1 

UICSPB 

97 

200  U2A8=UZ 

UICSPB 

98 

WS2  =  U2  *  TAN  (  BETA2R  ) 

UICSPB 

99 

US2  =  UU2( ISTAGE)  -  US2 

UICSPB 

100 

IF(US2.LT.0.0)  GO  TO  999 

UICSPB 

101 

TTT=US2^U2 

UICSPB 

102 

ALFA2R  =  ATAN  (  TTT  ) 

UICSPB 

103 

ALFA2  =  ALFA2R  *  180.0  /  PAI 

UICSPB 

104 

TTTT  =  UZ  **  2  +  US2  **  2 

UICSPB 

105 

W2  =  SORT  (  TTTT  ) 

UICSPB 

106 

TTTTT  =  UZ  **  2  +  US2  **  2 

UICSPB 

107 

U2  =  SORT  (  TTTTT  ) 

UICSPB 

108 

DELH=HKDONE* ( UU2 ( I STAGE ) -USB-U ( ISTACE) *091 ) /GC/A J 

UICSPB 

109 

XG=1.0-XUT(1) 

UICSPB 

no 

CALL  UICIRSC ISTAGE. RRTIP(ISTAGE)»XU(1).XC.RH0G(1)»BETA1>U1>UU1> 

UICSPB 

111 

Sm2.UU) 

UICSPB 

112 

ANINPRsUU 

UICSPB 

113 

IF(AMinPR.GT.mAS)  ANIMPR=WHAS 

UICSPB 

114 

PREB*S0.0 

UICSPB 

115 

AMREBR=AMI MPR*PREB/ 100.0 

UICSPB 

116 

AMWAKR=AMI MPR* ( 1 . 0-PREB/ 100.0) 

UICSPB 

117 

AMNOIR=mAS-AMINPR 

UICSPB 

118 

XHNOIR=AMHOIR/MrlASS 

UICSPB 

119 

XWREBR=AMREBR/MNASS 

UICSPB 

120 

XWUAKR=AMWAKR/MNASS 

UICSPB 

121 

XH1=0.0 

UICSPB 

122 

XU2=0.0 

UICSPB 

123 

XU3=0.0 

UICSPB 

124 

IF(UNAS.GT.O.O)  XU  1=  ANNO  IRENAS 

UICSPB 

125 

IF(UMAS.GT.O.O)  XU2=AMUAKR/UMAS 

UICSPB 

126 

IF(UMAS.GT.O.O)  XH3=AMREBR^HMAS 

UICSPB 

127 

DELTG*DELH/CPMIX 

UICSPB 

128 

DELTH1=DELH/CPU 

UICSPB 

129 

DELTU2=DELH/CPU 

UICSPB 

130 

DELTU3=0.0 

UICSPB 

131 

DELTUsXUl^DELTUHXUZ'OELTUE-^XUS^OELTUS 

UICSPB 

132 

TU(2)«TH(1)+DELTU 

UICSPB 

133 

TG(2)=TC(1)+DELTG 

UICSPB 

134 

TS2=TG(2)-U2**2/(2.0*CPMIX*GC*AJ) 

UICSPB 

135 

AG2*  (  GAMMA*Rt1 1  X*TS2*GC )  **0 . 5 

UICSPB 

136 

ASPEED^UICASOCXUTC 1 ).RHOG( 1 ). AC2) 

UICSPB 

137 

ANACB’^UB/ASPEEO 

UICSPB 

138 

AI1ACH2=U2^ASPEED 

UICSPB 

139 

PP 1  =CAMNA*Rri  I  X*TREL  1  *CC 

UICSPB 

140 

PP2=<UU2(  ISTAGE  )/'U(  ISTACE)  )**2-l.O 

UICSPB 

141 

PP3»1 . 0+C2*U( ISTAGE)**2/PP1«PP2 

UICSPB 

142 

PP=PP3**G1 

UICSPB 

143 

PRREL=PP-  ( 0MEGAl+0MEGA2+0t1EGA3)*(  1 . 0-PSl/PRELl ) 

UICSPB 

144 

PR12s( TC(2)/TG( 1 ) )**G1*PRREL/PP 

UICSPB 

145 

P(2)«PR12*P(1) 

UICSPB 

146 

PS2«( 1 . 0+C2*AMAC2**2)**(-Gl )*P(2) 

UICSPB 

147 

RH0G2*PS2/RMIX/TS2 

UICSPB 

148 

RH0C(2)sRH0C2 

UICSPB 

149 
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RHOtia=l .  O/'CXG/'RHOGa-^XUTC  1  )/RHOU) 

UZ=BHASS^RH0M2^AAAS 

U22=UZ 

EPS=1.0E-4 

IF(JJ.EQ.a)  GO  TO  SOI 

IF(JJ.GT.a)  GO  TO  SOS 

X1=UZAS 

Yi=uza 

UZ=UZ2 

JJ=JJ+1 

GO  TO  200 

201  X2=0ZAS 
Y2=UZ2 

UZ=UICIiEU(XltYl.X2.y2) 

IF(IPRItfr.EQ.2)  URITE(6f203)  JJ.UZ 

203  FORMPTCIH  #  IX.  Il.aX.^tUZS-^.FlO.S) 

JJ=JJ+1 

IF(OZ.LT.O.O.OR.UZ.GT.ASPEEO)  GO  TO  999 
G"  TO  200 

202  IF(PBS((UZAS-UZ2)/UZPS).LT.EPS)  GO  TO  300 

xi=xa 

Y1=Y2 

X2=UZAS 

Y2=UZ2 

UZ=UICNEU(X1.Y1.X2.Y2) 

IF(IPRINT.EQ.2)  URITE(6.204)  JJ.UZ 

204  FORMAT ( IHO. IX. I1.2X.PUZ2-P.F10.5) 

JJ=JJ+1 

IF(UZ.LT.O.O.OR.U2.GT.ASPEED)  GO  TO  999 
IF(JJ.EQ.20)  GO  TO  300 
GO  TO  200 
300  UZ2CL=UZ 

IF(JJJ.EQ.2)  GO  TO  2010 
IF(JJJ.GT.2)  GO  TO  2020 
XX1=UZ2AS 
YY1=UZ2CL 
JJJ=JJJ+1 
GO  TO  2000 
2010  XX2=UZ2AS 
YY2=UZ2CL 

UZ=WICNEW ( XXI . YYl . XX2. YY2 ) 

IF(IPRIf1T.EQ.2)  WRITE(B.2030)  JJJ.U2 
2030  FORMATCIH  . IX. I2.^UZ22=X.F10.S) 

JJJ=JJJ+1 
GO  TO  2000 

2020  IF(ABS((UZ2AS-U22CL)/UZ2A5).LT.EPS)  GO  TO  3000 
XX1=XX2 
YY1=YY2 
XX2=UZ2AS 
YY2=U22CL 

UZ=WICIiEH(XXl.YYl.XX2.YY2) 

IFdPRIMT.EO.S)  WRITE(6.2040)  JJJ.U2 
2040  FORMATCIH  .  IX.  IS.^^UZaa^i^.FlO.S) 

JJJ=JJJ+1 

IF(JJJ.EQ.20)  GO  TO  3000 
GO  TO  2000 

3000  UZ2=UZ2CL 
FAI2=UZ2/'UTIPG(  ISTAGE) 

P(2)=( 1.0+G2*AMAC2**2)**G1*P32 
JJJJ=1 

3001  UZ3AS«UZ 

CALL  UICGSL(0nEGS(ISTAGE).SIGUnS(ISTACE).Bm33(ISTflCC>. 

«BET2SS(  ISTAGE) .  AIMCSSl  ISTACE).  ASEUSBdSTAGE) .  AI1AC2.  ALFAa.OEQS* 
SDEQM.  SITACS.  SITACM.  BET2M.  OriEGAM.Ft««(  ISTAGE) .  IDESIN.  AKl .  AK2.  AK3. 
$UZ2.  UZ3AS.  0.0.  RADI2(  ISTAGE) .  RADI  1  ( ISTAGE-^1 ) ) 

ASPED2-ASPCE0 

DEQSS«DEQM 

SITACS»SITACN 

AIMCIS-ALFA2-BET1MS( ISTAGE) 

ADEUISBBET2N-BET2nS( ISTAGE ) 
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UICSPB 
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UICSPB 
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UICSPB 
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UICSPB 
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UICSPB 

163 

UICSPB 
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UICSPB 
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UICSPB 
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UICSPB 
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UICSPB 
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UICSPB 
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UICSPB 
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UICSPB 
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UICSPB 
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UICSPB 

173 

UICSPB 
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UICSPB 
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UICSPB 
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UICSPB 

177 

UICSPB 

178 

UICSPB 

179 

UICSPB 

180 

UICSPB 

181 

UICSPB 

182 

UICSPB 

183 

UICSPB 

184 

UICSPB 

185 

UICSPB 

186 

UICSPB 

187 

UICSPB 

188 

UICSPB 

189 

UICSPB 

190 

UICSPB 

191 

UICSPB 

192 

UICSPB 

193 

UICSPB 

194 

UICSPB 

1S5 

UICSPB 

196 

UICSPB 

197 

UICSPB 

198 

UICSPB 

199 

UICSPB 

200 

UICSPB 

201 

UICSPB 

202 

UICSPB 

203 

UICSPB 

204 

UICSPB 

205 

UICSPB 

206 

UICSPB 

207 

UICSPB 

208 

UICSPB 

209 

UICSPB 

210 

UICSPB 

211 

UICSPB 

212 

UICSPB 

213 

UICSPB 

214 

UICSPB 

215 

UICSPB 

216 

UICSPB 

217 

UICSPB 

218 

UICSPB 

219 
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IFCIPRINT.EQ.a)  WRITE(G.302)  flINCIS.AINCSS(lSTflGE)tADEUISf 

UICSPB 

220 

SftDEUSSdSTAGE) 

UICSPB 

221 

302  FORMfiT(lHO,lX,4(F7.3.2X)) 

UICSPB 

222 

0HEGA4=0nEGAN 

UICSPB 

223 

ALFA3=BET2M 

UICSPB 

224 

ALFA3R=ALFA3*PAI/180 . 0 

UICSPB 

225 

U3=UZ/C0S(ALFA3R) 

UICSPB 

226 

UG=(U2+U3)/2.0 

UICSPB 

227 

OHEGAP=0.0 

UICSPB 

228 

IF(XU(1).GT.0.0) 

UICSPB 

229 

SCALL  UICSDL(SC(ISTAGE).SIGUMS(ISTAGC)»ALFA2.ALFA3>UCfRH0C(2) 

UICSPB 

230 

$.UMAS.AAA2.UZ. IPRINT.QHEGAP) 

UICSPB 

231 

0MEGA5=0I1EGAP 

UICSPB 

232 

DELP5=OMEGA5*0 . 5*RHQG ( 2 ) /GC* ( U2**2 ) 

UICSPB 

233 

DELPG=0.0 

UICSPB 

234 

OliEGAB=0.0 

UICSPB 

235 

PR23=1.0-(OMEGA4+OMEGA5+OMEGA6)*(1. 0-PS2>'P ( 2 ) ) 

UICSPB 

236 

PR13I=(TG(2)/TG(1))**G1 

UICSPB 

237 

PR 1 3= ( TG ( 2 ) ✓TG ( 1 ) ) **G 1*PRREL*PR23/^P 

UICSPB 

238 

P(3)=PR13*P(1) 

UICSPB 

239 

TG(3)=TG(2) 

UICSPB 

240 

TS3=TG ( 3 ) -U3**2  ^ ( 2 . 0*CPMI X*GC*A J ) 

UICSPB 

241 

AG3= ( GAMMA*RM I X*TS3*GC ) **0 . 5 

UICSPB 

242 

ASPEED=U  I CASD  ( XUIT  ( 1) .  RHOG  ( 2 ) .  AG3  ) 

UICSPB 

243 

ASPED3=ASPEED 

UICSPB 

244 

AMAC3=03/ASPEED 

UICSPB 

245 

PS3= ( 1 . 0+G2*AMAC3**2 ) ** ( -G 1) *P ( 3 ) 

UICSPB 

246 

RH0G3=PS3/’RMIX/TS3 

UICSPB 

247 

RH0G(3)=RHaG3 

UICSPB 

248 

RH0M3= 1 . 0/  ( XG/RH0G3+XIJT  ( 1 )  ^RHOM  ) 

UICSPB 

249 

UZ=BMASS^RH0M3/'AAA3 

UICSPB 

250 

UZ3CL=UZ 

UICSPB 

251 

1F(JJJJ.EQ.2)  GO  TO  3010 

UICSPB 

252 

IF(JJJJ.GT.2)  GO  TO  3020 

UICSPB 

253 

XXX1=U23AS 

UICSPB 

254 

YYY1=UZ3CL 

UICSPB 

255 

JJJJ=JJJJ+1 

UICSPB 

256 

GO  TO  3001 

UICSPB 

257 

3010  XXX2=UZ3AS 

UICSPB 

258 

YYY2=yZ3CL 

UICSPB 

259 

U2=U I CNEU ( XXX 1 1 YY Y 1 . XXX2 . YYY2 ) 

UICSPB 

260 

IF(IPRIHT.EQ.2)  WRITE(G.3030)  JJJJtUZ 

UICSPB 

261 

3030  FORMAT! IH  , IX. I2.2X. ^UZ33=^.F10.5) 

UICSPB 

262 

JJJJ=JJJJ+1 

UICSPB 

263 

GO  TO  3001 

UICSPB 

264 

3020  IF(ABS((UZ3AS-yZ3CL)/'UZ3AS).LT.EPS)  GO  TO  4000 

UICSPB 

265 

XXX1=XXX2 

UICSPB 

266 

YYY1=YYY2 

UICSPB 

267 

XXX2=UZ3AS 

UICSPB 

268 

YYY2=UZ3CL 

UICSPB 

269 

UZ=H 1 CNEU ( XXX 1 . Y YY 1 . XXX2 . YYY2 ) 

UICSPB 

270 

IFCIPRINT.EQ.a)  URITE(Gf3040)  JJJJ.UZ 

UICSPB 

271 

3040  FORMAT!  IH  ,  IX,  12,  jeUZ33*^.F10.5) 

UICSPB 

272 

JJJJ=JJJJ+1 

UICSPB 

273 

IFCJJJJ.EQ.20)  GO  TO  999 

UICSPB 

274 

GO  TO  3001 

UICSPB 

275 

4000  UZ3=UZ3CL 

UICSPB 

276 

FAI3=yZ3^UTIPG! ISTAGE+1 ) 

UICSPB 

277 

TH!3)=TW!2) 

UICSPB 

278 

OMEGTR=OMEGA1+OMEGA2+OMEGA3 

UICSPB 

279 

0MEGTS=0MEGA4+0MEGA5+0MEGAG 

UICSPB 

280 

POMEGlsOMEGAl/OMEGTR*100.0 

UICSPB 

281 

POMEG2=OMEGA2/'OMEGTR*  100.0 

UICSPB 

282 

P0MEG3=0MEGA3/0MEGTR* 100.0 

UICSPB 

283 

POMEG4=OMEGA4/OMEGTS*1 00 . 0 

UICSPB 

284 

POMEG5*OMEGA5/OMEGTS*! 00 . 0 

UICSPB 

235 

POMEGGsOMEGAG/OMEGTS* 100.0 

UICSPB 

286 

PRATI0=PC3)/PC1) 

UICSPB 

287 

TRATI0*TG!3)/TG!1) 

UICSPB 

288 

CALL  UICPRP!XA,XUC3).XCH4,TG<3).RmX.CPmX.CMt1A,Cl.Ca.C3) 

UICSPB 

289 
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GAMMAS=G()MnA 

UICSPB 

2S0 

G()I1MAU=  ( GAMM  A 1 +GAHI1AS )  /S  .  0 

WICSPB 

291 

G4=(GAMMAU-1.0) ✓GAMMAU 

UICSPB 

292 

ETAA(1STAGE)=(PRAT10**G4-1.0)/(TRATIO-1.0) 

UICSPB 

293 

IF(IUNIT.NE.a)  GO  TO  857 

UICSPB 

294 

UTIPG( ISTAGE)=UTIPG( 1STAGE)*CFU 

UICSPB 

295 

P(1)=P(1)«CFP 

UICSPB 

2SB 

P(2)=P(2)*CFP 

UICSPB 

297 

P(3)=P(3)*CFP 

UICSPB 

298 

PS1=PS1*CFP 

UICSPB 

299 

PS2=PS2»CFP 

UICSPB 

300 

PS3=PS3*CFP 

UICSPB 

301 

TG(1)=TG(1)*CFT 

UICSPB 

302 

TG(2)=TG(2)*CFT 

UICSPB 

303 

TG(3)=TG(3)*CFT 

UICSPB 

304 

TS1=TS1*CFT 

UICSPB 

305 

TS2=TS2*CFT 

UICSPB 

30B 

TS3=TS3*CFT 

UICSPB 

307 

RHOG(l)=RHOG(l)*CFD 

UICSPB 

308 

RH0G2=RH0G2»CFD 

UICSPB 

309 

RH0G3=RH0G3*CFD 

UICSPB 

310 

RHOM<l)=RHOM(l)*CFD 

UICSPB 

311 

RH0I12=RH0M2*CFD 

UICSPB 

312 

RHQM3=RH0M3*CFD 

UICSPB 

313 

UZ1=U21*CFU 

UICSPB 

314 

U22=UZ2*CFU 

UICSPB 

315 

UZ3=UZ3*CFU 

UICSPB 

318 

U1=U1*CFU 

UICSPB 

317 

U2=U2*CFU 

UICSPB 

318 

U3=U3*CFg 

UICSPB 

319 

W1=H1*CFU 

UICSPB 

320 

I.I2=U2*CFU 

UICSPB 

321 

U(ISTAGE)=U(ISTAGE)*CFU 

UICSPB 

322 

UU2( ISTAGE)=UU2( ISTAGE)*CFU 

UICSPB 

323 

U( ISTAGE+1 )=U( ISTAGE+1 )*CFU 

WICSPB 

324 

US1=US1*CFU 

WICSPB 

325 

US2=US2*CFU 

UICSPB 

328 

WS1=WS1*CFIJ 

UICSPB 

327 

WS2=MS2*CFU 

UICSPB 

328 

ASPED1=ASPED1*CFU 

UICSPB 

329 

ASPED2=ASPED2*CFU 

UICSPB 

330 

ASPED3=ASPED3*CFU 

UICSPB 

331 

AAA1=AAA1*CFA 

UICSFB 

-  332 

AAA2=AAA2»CFA 

UICSPB 

333 

AAA3=AAA3*CFA 

UICSPB 

334 

857  COMTIMUE 

UICSPB 

335 

WRITE(6.404)  FAIO.ISTAGE 

UICSPB 

338 

404  FORMAT(1H1.1X,;:«*********<mhmmmmmmm» 

UICSPB 

337 

$?!iriITIAL  FLOW  C0EFFICIEMT=»<,1X,F7.5»1X»»«(STACE«»‘.IH»1X. 

UICSPB 

338 

2X.  ;«******•»*****•*****)«) 

UICSPB 

339 

WRITE(S.401)  PRATIO.TRATIO.ETAA(ISTACE) 

UICSPB 

340 

401  FORt1AT(lH0.5X,!<STAGE  TOTAL  PRESSURE  RATI0»^.F12.5.^t 

UICSPB 

341 

$6X,«TAGE  T01.»L  TEMPERATURE  RATIO*^f F12.5./» 

UICSPB 

342 

$6X.>‘STAGE  ADIABATIC  EFFICIEMCV-K.Fia.S) 

UICSPB 

343 

1«ITE(8.402)  FAII.UZl.UTIPGCISTACE) 

UICSPB 

344 

402  FORMAT (1H0.5X.XST AGE  FLOW  COEFFICIENT=P.FS.3.^. 

UICSPB 

345 

$BX.XAXIAL  UEL0CITY=J‘.F7.2,<'. 

UICSPB 

348 

SBX.PROTOR  SPEED=;<.F7.2,/') 

UICSPB 

347 

WRITE(B.403)  PR13.PR13I.PRREL.PR23 

UICSPB 

348 

403  FORMATCIH  .SX.KSTAGE  TOTAL  PRESSURE  RATIO(ACTUAL)*»»‘f Fia.St/-. 

UICSPB 

349 

SBX.PSTAGE  TOTAL  PRESSURE  RATIO(IDEAL)-Xf F12.5./> 

UICSPB 

350 

SBX.PLOSS  FACTOR  IM  ROTOR-Pt F12.Sf 

UICSPB 

351 

SBX.PLOSS  FACTOR  IM  STATORsPtFlR.S,/) 

UICSPB 

352 

WRITE(6>405) 

UICSPB 

353 

405  FORMAT (1H0.24X»P*ROTOR  IMLET*  *ROTOR  OUUET*  *STATOR  OUTLET*P) 

UICSPB 

354 

WRITE(Bt406)  P(l).P(2)iP(3) 

UICSPB 

355 

40B  FORMATCIH  .lX.PTOTAL  PRESSUREP.10X.3(F10.2f5X)) 

UICSPB 

358 

URITE(B.407)  PSlfPS2tPS3 

UICSPB 

357 

407  FORMATCIH  .IXtPSTATIC  PRESSUREP.9X>3CF10.2.5X) ) 

UICSPB 

358 

WRITEC6f408)  TGC1).TGC2)>TCC3) 

UICSPB 

359 

215 


408  FORMATCiH  .IXt^TOTAL  TEMPERATURE(GAS)»«,3X.3(F10.4t5X)) 

WICSPB 

3G0 

WRITE(e,409)  TS1.TS2.TS3 

UICSPB 

3G1 

409  FORMATCIH  ,lX.s<STATIC  TEMPERATURE(GAS)9«tlX.3(F10.4,5X)) 

WICSPB 

3Ga 

URITE(6.410)  RH0G(1).RH0G2.RH0G3 

WICSPB 

3G3 

410  FORMATCIH  .1X.>«STATIC  DENSITY(GAS)s«.5X.3(F10.4.5X)) 

WICSPB 

364 

URITE(6.411)  RHaM(l)>RH0MS.RH0M3 

WICSPB 

3G5 

411  FORMATCIH  .lX.XSTATIC  DEMSITYCMIXTURE)X,1X.3CF10.4,5X)) 

UICSPB 

366 

URITECGt41S)  UZliU22.U23 

UICSPB 

367 

412  FORMATC1H0.1X.»«AXIAL  UELOCITYP.10X.3CF10.4.5X)) 

UICSPB 

368 

URITEC6.413)  U1.U2.U3 

WICSPB 

369 

413  FORMATCIH  .  IX.  ^ABSOLUTE  UELOCITY»!.7X.3CF10.4.5X) ) 

UICSPB 

370 

URITEC6.414)  U1.U2 

UICSPB 

371 

414  FORMATCIH  .  IX. »«RELAT1UE  UELOCITY>‘.7X.2CF10.4.5X) ) 

UICSPB 

372 

URITEC6.41S)  UCISTAGE)>UU2CISTAGE).UCISTAGE+1) 

WICSPB 

373 

415  FORMATCIH  .lX.XBLADE  SPEED»«. 13X.3CF10.4.5X) ) 

WICSPB 

374 

URITEC6.416)  US1.US2 

UICSPB 

375 

419  FORMATCIH  ,1X.»!TANG.  COMP.  OF  ABS.  C«L.»«.2CF10.4.5X) ) 

WICSPB 

376 

URITECG.417)  US1.US2 
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417  FORMATCIH  .1X.j«TANG.  COMP.  OF  REL.  UEL.?«.2CF10.4.5X) ) 
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URITECG. 418)  ASPEDl . ASPED2. ASPEQ3 
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418  FORMATCIH  . IX. ACOUSTIC  SPEEOP. 10X.3CF10.4.5X) > 

WICSPB 

380 

URITEC6.419)  AMAC1.AMAC2. AMAC3 
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424  FORMATCIH  .  IX.  J«RELATIUE  FLOW  AMGLEi«.5X.3CF10.4.5X)) 

WICSPB 
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URITECG.425)  AlMCIR. AlMCIS 
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WRITECG.42G)  AOEUIR. ADEUIS 

WICSPB 
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UICSPB 

407 
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UICSPB 
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TS2=TS2/CFT 
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TS3=TS3/'CFT 
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UICSPB 

411 

RH0G8=RH0G2/CFD 

UICSPB 

412 

RH0G3=RH0G3xCFD 
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413 

RH0MC1)=RH0MC1)/CFD 

UICSPB 

414 

RH0Ma=RH0M2/'CFD 

UICSPB 

415 

RH0M3=RH0M3/CFD 

UICSPB 

416 

U21=U21/CFU 

UICSPB 

417 

U22=U22/CFU 

UICSPB 

418 

U23=U23/CFU 
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U1=01/CFU 

UICSPB 

420 

U2=U2/CFU 

UICSPB 

421 

U3=U3/CFU 

UICSPB 

422 

H1=W1/CFU 

UICSPB 

423 

W2=U8/CFU 
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424 

U( ISTAGE)=UC ISTAGE)/CFU 

UICSPB 

425 

UU8  C ISTAGE ) =UUa  C ISTAGE ) ^CFU 
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426 

UC lSTAGE+1 )=UC lSTAGE+1 )/CFU 
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427 

US1=US1/CFU 
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US2=US2/CFU 
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MS1=MS1/CFU 
WSa=US2-'CFU 
ASPED1=ASPED1/'CFU 
ASPEDa=ASPEDa/CFU 
ASPED3=ASPED3/CFU 
ftftAl=AAfil/CFA 
AAfta=AAAa/'CFA 
AAA3=AAA3/CFA 
858  CONTINUE 


999  RETURN 
END 


SUBROUTINE  UICSPCCFAIO. ISTAGE.HHASS.M.FAl.UKDONE.DAU>DELU.UnAS. 

$mNAS.N. 

SOMEGAl . OMEGAa. QNEGA3. 0MEGA4. OMEGAS. 0MEGA6. OMEGAT. 

$BETA 1 . BETA2 • U2. ALFA2. ALFA3. DELTG. DELTU. U1 . Ua. U1 . Ua. U3. REAUE. 

SDELUUa . DELULa . AK 1 . AKa . AK3 ) 

REAL  M.MMASS 

COMMON  TD(7).IUNIT 

COMMON  CFL . CFT , CFP , CFO , CFM, CFU. CFA 

COMMON  JPERFM. RHOG( 3 ) . RERUP. RERLOU. RESUP. RESLOU 

COMMON  PREB . RRT I P ( 8 ) . SRT I P( 8 ) . AAAI . AAAE. AAA3. SAREA ( 6 ) . SAREASC  7 ) 

COMMON  P(3).TCC3).XA.XU(3).XCH4.XM(3)>XUU(3).XUT(3).TU(3).TUU(3) 

COMMON  OMEGS  ( 7 ) .  OMEGR  ( 6  ) .  GAPR  (  6  ) .  GAPS  ( B ) 

COMMON  RRHUB(G)  .  RC(6)  .  R6LADE(6)  .  STAGERIB) 

COMMON  SRHUB(7)  ,  SC<71  ,  SBLADE(7)  .  STAGES! 7) 

COMMON  SIGUMR(B)  .  BETISRCB)  .  BETaSR(B)  .  AINCSR(6)  .  ADEUSR(G) 
COMMON  SIGUMS(7)  .  BET1SS(7)  .  BETaSS(7)  .  AINCSS(7)  .  ADEUSS(7) 
COMMON  UTIPG(G).UTIP(6>.UT1PD(6).U0U(6).UHEAN(6).UHUB(6)»U(6>.FAI 
COMMON  ARE A ( B ) . ARE AS ( 7 ) , UUa ( B ) . UT IPa( B ) . UMEANa ( B ) >  UHUBa ( B ) . I PRI NT 
COMMON  ICENT, I ICENT, FMRl (B) , FMAa(B) . IDESIN. PAID 
COMMON  NS.NS1.RT(6).RM(B).RH(B).ST(B>.SM(B)>SH(B) 

COMMON  DSMASS . A AREA ( 7 ) , AAREAS ( 7 ) . PR IHD ( B ) , PR 1 3D ( B ) . ETARD( B ) 

COMMON  DR ( B ) . OS ( 6 ) . DEQR ( 6 ) . DEQS ( B ) . BLOCK ( G ) . BLOCKS ( 7 ) 

COMMON  BET 1 MR ( B ) , BETEMR ( G ) . BET IMS ( 7 ) . BETEHS ( 7 ) . RADI 1 ( B ) . RADI a ( B ) 
DIMENSION  RH0M(3).ETAA(B) 

IPRINT=1 


CPU=1.0 
RH0U=Ga.3 
GC=3a.l74 
AJ=778.aG 
PAI=3. 1415926 

CALL  UlCPRP ( XA. XU( 1 ) . XCH4. TG( 1 ) . RMIX. CPMIX. GAMMA. G1 >  G2.  C3) 

GAMMA 1=GAMMA 

RHOGC 1  )=P(  1 )  /RMIX-'TGC  1 ) 

BMASS=MMASS-WMA3-WWMAS 

AAA2=AREAS(ISTAGE) 

AAA3=AREA';  ^STAGE+l ) 

IFCISTAGE.  .Q.NS)  AAA3=AAAa 

CALL  WI CMAC  C ISTAGE . BMASS. TG( 1 ) . P( 1 ) . M. U2. C. XUT ( 1 ) , ALFA! . 
$RMIX. CPMIX, AAAI) 

ASPEED=C 

ASPED1=ASPEED 

RHOG( 1 )=( 1 . 0+Ga*M  **a)**G3*RH0G< 1 ) 

RHOMC 1 )=1 . 0/( ( 1 . 0-XUT( I ) I/RHOCd )+XHT( 1 )/RHOU) 

U21=UZ 

U22=UZ 

F A I 1 =U2 1 /UT I PG ( I ST AGE ) 

ALFAIR  =  ALFAl  *  PAI  /  180.0 
U1  =  U2  /  COS  (  ALFAIR  ) 

USl  =  UZ  *  TAN  (  ALFAIR  ) 

WSl  =  U( ISTAGE)-  USl 
T  =  WSl  /  UZ 
BETAIR  =  ATAN  (  T) 

BETAl  =  BETAIR  *  180.0  /  PAI 
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47 
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48 
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49 

UICSPC 

50 

UICSPC 

51 

UICSPC 

52 

UICSPC 

53 

UICSPC 

54 

UICSPC 

55 

UICSPC 

56 

UICSPC 

57 

UICSPC 

58 

UICSPC 

59 

TT  =  U2  **2  +  USl  **2  UlCSPC  EO 

W1  =  SORT  (  TT  )  UlCSPC  El 

ftMflCHl  =  U1  /  ASPEED  UlCSPC  E2 

AMAC1=U1/ASPEED  UlCSPC  E3 

TSI=TG(1)/(1.0+G2*AMAC1**2)  UlCSPC  B4 

PS1=(TG(1VTS1)**(-G1)*P(1)  UlCSPC  E5 

PRELl=(1.0+G2*AriACHl**2)**Gl*PSl  UlCSPC  EE 

TREL1=(1.0+G2*AMACH1**2)*TS1  UlCSPC  E7 

TG(2)=7G(1)  UlCSPC  EE 

P(2)=P(1)  UlCSPC  E9 

ALFA2=BET1SS(1STAGE)  UlCSPC  70 

UlCSPC  71 

2000  UZ2AS=UZ  UlCSPC  72 

CALL  UICGSL(0MEGR(ISTAGE),SIGUHR(ISTAGE).BET1SR(1STAGE),BET2SR(  UlCSPC  73 

SISTAGE ) , AINCSR( ISTAGE ) . ADEUSR( 1 STAGE ) . AMACHl. BETAl i BEDS. DEQN.  UlCSPC  74 

$SITACS,SITACN,BET2N.0MEGAfi,FMRl(ISTA(X),IDESIN,AKl,AK2,AK3.UZl,  UlCSPC  75 

$UZ2AS.U(ISTAGE).RADI1(ISTAGE).RADI2(ISTACE))  UlCSPC  7G 

0MEGA7=0MEGAM  UlCSPC  77 

BETA2=BET2N  UlCSPC  78 

BETA1R=BETA1*PAI/'180.0  UlCSPC  79 

BETA2R=BETA2*PA 1/180.0  UlCSPC  80 

BETAUE=(BETAlR+BETA2R)/2.0  UlCSPC  81 

TANGT=UICTAN(BETA1R)-UICTAN(BETA2R)  UlCSPC  82 

CSAU=COS(BETAUE)  UlCSPC  83 

CS1=C0S(BETA1R)  UlCSPC  84 

CL=2.0/SIGUI1R(ISTAGE)*TANGT*CSAU  UlCSPC  85 

CDS=0.018»(CL**2)  UlCSPC  £B 

0MEGSE=CDS*SIGUriR(ISTAGE)*(CSl**2)/(CSAU**3)  UlCSPC  87 

H=RRTIP(ISTAGE)-RRHUB( ISTAGE)  UlCSPC  88 

SHR=RC ( 1 STAGE ) /H/S I GUMR ( I STAGE )  U 1 CSPC  89 

CDA=0.020»SHR  UlCSPC  90 

aMEGAN=CDA*SlGUI1R(ISTAGE)*(CSl**2)/<CSAU**3)  UlCSPC  91 

IF(IPRIMT.EQ.2)  URITE(G.2001)  0HEGAl.QnEGSE.0nECAN»0MEGA7>CDS.CDA  UlCSPC  92 

2001  FORMATCIHO.EFIO.E)  UlCSPC  93 

0MES1=0MEGSE  UlCSPC  94 

0HEA1=0MEGAN  UlCSPC  95 

AIMCIR=BETA1-BET1MR( ISTAGE)  UlCSPC  SE 

ADEUIR=BET2N-BET2MR( ISTAGE)  UlCSPC  97 

BET A2R=BETA2*PA 1/180.0  U I CSPC  98 

U2=U2/C0S(BETA2R)  UlCSPC  99 

UG=(Ul+U2)/2.0  UlCSPC  100 

CALL  UICRSL(SIGUMR(ISTAGE)fBETAl.BETA2.RC(ISTAGE).DAU»CDR»0HEGAR)  UlCSPC  101 

DELP1=CIMEGA1*0.5*RHOG(1)/GC*(U1**2)  UlCSPC  102 

IFdPRINT.EQ.B)  URITE(G. 2002)  OMEGAl.DELPl  UlCSPC  103 

2002  FORMATdH  ,  IX,  j<OMEGA1=!<,2F10.5)  UlCSPC  104 

XG=1.0-XUTd)  UlCSPC  105 

CALL  UICIRLdSTAGE,RRTIPdSTAGE).XUUd),XC,RHOGd), BETAl, Ul.UUl.UU  UlCSPC  lOE 

*2, MM)  UlCSPC  107 

BMIMPR=UU  UlCSPC  108 

IF(BnitlPR.GT.UUMAS)  Bmt1PR=UUMAS  UlCSPC  109 

BMREBR=BniMPR*PREB/100.0  UlCSPC  110 

BMUAKR=BI1I«PR*d.0-PREB/100.0)  UlCSPC  111 

BmOIR=M)MAS-Bf1iMPR  UlCSPC  112 

XUUNOR=BMriOIR/MMASS  UlCSPC  113 

XUURER=BriREBR/Mt1ASS  UlCSPC  114 

XUUUAR=Bm4AKR/f1«ASS  UlCSPC  115 

IFdPRINT.EQ.2)  URITECE.EOSO)  BniMPR,BnREBR,Bf1UAKRtBntiOIR,XUUNOR,  UlCSPC  HE 

$XUURER,XUUUAR  UlCSPC  117 

E090  FORMATdH  .7(F12.5,  IX) )  UlCSPC  118 

RSTl=RADIldSTAGE)**2-AAAl*144.0/2.0/PAI  UlCSPC  119 

R9T1=S0RT(RST1)  UlCSPC  120 

RST2=2.0*RADIldSTAGE)**2-RSTl**2  UlCSPC  121 

RST2=S0RT(RST2)  UlCSPC  122 

DELR=(RST2-RST1)/12.0  UlCSPC  123 

FMASSRsBMUAKR/OELR  UlCSPC  124 

CALL  UICFML(Ul,U2.FMASSR,RH0Gd),RCdSTACE),SIGUMR(ISTAGE),BETAl,  UlCSPC  125 

$EETA2,CDF.0MECAF)  UlCSPC  128 

0MCGA2<=0MEGAF  UlCSPC  127 

DELP2=OMECA2*0.5*RHOCd)/CC*(Ul**2)  UlCSPC  128 

IFdPRINT.EO.2)  URITE(B.B091)  0MEGA2,DELP2  UlCSPC  129 
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FORMATCIH  ,  IXt  j<OMEGfl2-;<t2F10.5) 

U2=0.0 

U3=0.0 

ALFft=0.0 

ftLFfl3=0.0 

CALL  UICSTLC  ISTAGEf  1 .  DAUt  U1 1 U2.  DELUt  U2t  U3.  UUtlAS*  UZ> Nt  BETAl >  BETA2> 
$ALFA2. ALFA3, BMASS. DELUU2, DELUL2. OMEGRU. OMEGRL. OMEGSU. OMECSL, 
SDRAGRU. DRAGRL. DRAGSU. DRAGSL.REAUE) 

OnEGA3=OI1EGRU>OMEGRL 
DELP3=0MEGA3»  0 . S»RHQG ( 1 ) /GC» ( U 1««2 ) 

IF(IPRINT.EQ.2)  URITE(6,e092)  0MECA3.DELP3 
6092  FORMATCIH  .  lX.;‘OnEGA3=X,2F10.5) 

REAUE1=REAUE 

BETA2R  =  BETA2  *  PAI  ^  180.0 
JJ=1 

200  UZAS=U2 

US2  =  U2  *  TAN  (  BETA2R  ) 

US2  =  UU2(ISTAGE)  -  WS2 
TTT=US2/U2 

ALFA2R  =  ATAN  (  TTT  ) 

ALFA2  =  ALFA2R  *  180.0  /  PAI 
TTTT  =  UZ  **  2  +  WS2  **  2 
W2  =  SORT  (  TTTT  ) 

TTTTT  =  UZ  2  +  US2  **  2 
U2  =  SORT  (  TTTTT  ) 

DELH=HKDONE* ( UU2 ( 1ST AGE ) *US2-U( ISTACE ) *US1 ) /CC/AJ 
CALL  WICIRS(ISTAGE.RRTIP(ISTAGE),XU(l),XG,RHOG(l). BETAl. Ml. MUl, 
$MM2.UU) 

AM1MPR=MU 

IF(AMIMPR.GT.UMAS)  AMIMPR=MMAS 
PREB=50.0 

AMREBR=AM I MPR*PREB/ 100.0 
AMMAKR=AM  I MPR*  ( 1 . 0-PREB/'l  00 . 0  ) 

AmOIR=WMAS-AMIMPR 

XU1=0.0 

XW2=0. 0 

XH3=0.0 

IF(WMAS.GT.O.O)  XWl*AmOIR/MMAS 

IF(MMAS.GT.O.O)  XW2=AMWAKR/WMAS 

IF(HMAS.GT.O.O)  XM3=AMREBR/'MMAS 

DELTG=DELH/CPM1X 

DELTW1=DELH/CPU 

DELTW2=DELH/CPH 

DELTW3=0.0 

DELTW=XW 1 *DELTW 1 +XM2*DELTM2+XM3*DELTW3 

DETWW1=0.0 

DETWW2=0.0 

DETMH3=0.0 

Dfc;LTUW=0.0 

TU<2)=TU(1)+DELTM 

TWU(2)=T14U(1)+DELTWM 

TG(2)=TG(1)+DELTG 

TS2=TG ( 2 ) -U2**2/ ( 2 . 0*CPMIX*GC*A J ) 

AG2= ( GAMMA*RMIX*TS2*GC ) **0 . 5 
ASPEED=HICASD ( XWT ( 1 ) . RHOG ( 1 ) , AC2 ) 

ASPED2=ASPEED 

AMAC2=U2^ASPEED 

AMACH2=H2/ASPEED 

PP1=GAMMA*RMIX*TREL1*GC 

PP2=  ( UU2  ( I  STAGE )  /'U  ( 1ST  AGE  )  )  **2-1 , 0 

PP3=1 . 0+G2*U< ISTAGE)**2/PP1*PP2 

PP=PP3**G1 

PRREL=PP-( 0MEGA7+0riEGAl+0MEGA2+DMECA3)*( I .0-PSl/PREU ) 

PR  1 2=  ( TG  ( 2 ) /TC  ( 1 ) )  **G  1  *PRREL/PP 
P(2)=PR12*P(1) 

PS2=( 1 . 0+G2*AnAC2**2)**(-Gl )*P(2) 

RH0G2=PS2^RMIX/'TS2 

RH0G(2)sRH0G2 

RH0M2= 1 . 0/ ( XG/RH0G2+XHT ( I ) /RHOW ) 

UZ=BMASS/RH0G2/AAA2 
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UZS=UZ 

WICSPC 

soo 

EPS=1.0E-4 

UICSPC 

201 

IF(JJ.EQ.3)  GO  TO  SOI 

UICSPC 

SOS 

ir(JJ.GT.S)  GO  TO  SOS 

UICSPC 

203 

X1=UZAS 

UICSPC 

S04 

Yi=uza 

WICSPC 

205 

uz=uza 

WICSPC 

206 

JJ=JJ+1 

WICSPC 

207 

IF(UZ.LT.O.O.OR.UZ.GT.ASPEED)  GO  TO  SSS 

WICSPC 

208 

GO  TO  aoo 

WICSPC 

SOS 

SOI 

xa=uzAS 

WICSPC 

SIO 

Ya=uza 

WICSPC 

211 

uz=wiCNEU(xi.vi.xa.Ya) 

WICSPC 

SIS 

IF(IPRINT.EQ.a)  WRITE(6.a03)  JJ.OZ 

WICSPC 

ai3 

S03 

FORMATC IH  >  IX.  1 1 . 3X.  XUZS-ii!. F10.5) 

WICSPC 

214 

JJ=JJ+1 

WICSPC 

215 

IF(UZ.LT.O.O.OR.UZ.GT.ASPEED)  GO  TO  999 

WICSPC 

216 

GO  TO  aoo 

WICSPC 

217 

SOS 

IF(ABS((UZAS-UZa)^UZAS).LT.EPS)  GO  TO  300 

WICSPC 

218 

xi=xa 

WICSPC 

219 

Yi=Ya 

WICSPC 

aao 

xa=uzAS 

WICSPC 

sai 

Ya=uza 

WICSPC 

aaa 

uz=mcNEW(xi,Yi.xa.Ya) 

WICSPC 

223 

IF(IPRINT.EQ.a)  WRITE(6.S04)  JJ.UZ 

WICSPC 

224 

S04 

FORMAT(lH0.1X.Il.aX.s«UZa=X.F10.S) 

WICSPC 

225 

JJ=JJ+1 

WICSPC 

226 

IF(UZ.LT.O.O.OR.UZ.GT.ASPEED)  GO  TO  999 

WICSPC 

227 

IF(JJ.EQ.aO)  GO  TO  999 

WICSPC 

228 

GO  TO  aoo 

WICSPC 

229 

300 

uzacL='Jz 

WICSPC 

230 

IF(JJJ.EQ.a)  GO  TO  aOlO 

WICSPC 

231 

iF(jjj.GT.a)  GO  TO  aoao 

WICSPC 

232 

xxi=uzaAs 

WICSPC 

233 

YYl=UZaCL 

WICSPC 

234 

JJJ=JJJ+1 

WICSPC 

235 

GO  TO  aooo 

WICSPC 

236 

SOlO 

xxa=uzaAS 

WICSPC 

237 

YYa=uzacL 

WICSPC 

238 

UZ=WICNEW( XXI . YYl , XXa.  YYS) 

WICSPC 

239 

IF(IPRIMT.EQ.a)  WRITE(e,E030)  JJJ.UZ 

WICSPC 

240 

S030 

FORMATC iH  , IX. ia.xuzaa=^,Fio.5) 

WICSPC 

241 

JJJ=JJJ+1 

WICSPC 

242 

GO  TO  aooo 

WICSPC 

243 

SOSO 

IF(ABS((UZaAS-UZaCL)^UZaAS).LT.EPS)  GO  TO  3000 

WICSPC 

244 

xxi=xxa 

WICSPC 

245 

YYl=YYa 

UICSPC 

246 

xxa=uzaAS 

WICSPC 

247 

YYa=uzacL 

WICSPC 

248 

UZ=W I CNEU ( XX 1 . Y Y1 . XXa . YYS ) 

UICSPC 

249 

IF(IPRIMT.EO.S)  WRITECB,S040)  JJJ.UZ 

UICSPC 

250 

S040 

FORMATC  IH  .  IX.  ia.>!UZSS=»!.F10.5) 

WICSPC 

251 

JJJ=JJJ+1 

WICSPC 

252 

IFCJJJ.EQ.SO)  GO  TO  3000 

UICSPC 

253 

GO  TO  SOOO 

UICSPC 

234 

3000 

uza=uzacL 

UICSPC 

255 

FAIS=UZa/UTIPGC ISTAGE) 

WICSPC 

256 

P  C  S ) =C 1 . 0+GS*AMACS**S ) **Gl*PSa 

UICSPC 

257 

JJJJ=1 

UICSPC 

258 

3001 

UZ3AS=UZ 

UICSPC 

259 

CALL  UICGSLCOMEGSC ISTAGE). SIGUnS(ISTAGE).BETlSS(ISTAGE)>BETaSS 

UICSPC 

260 

$( ISTAGE ) . AINCSS ( ISTAGE ) >  ADEUSS( ISTAGE) . AMACS. ALFAS. DEQSt  DEON. 

WICSPC 

261 

SSITACS. SITACN. BETSN. OMEGANt FMASC ISTAGE). IDESIN»AKltAKS.AK3i UZS. 

UICSPC 

262 

$UZ3AS. 0 . 0. RADIS ( ISTAGE ) . RADI 1 ( ISTAGE+1 > ) 

UICSPC 

263 

OMEGASsOMEGAM 

UICSPC 

264 

ALFA3=BETaN 

UICSPC 

265 

ALFA 1 R=ALF Aa*PA 1^180.0 

UICSPC 

256 

ALFASR=ALFA3*PAI/180. 0 

UICSPC 

267 

ALFAAU= C  ALFAIR+ALFASR ) /3 . 0 

UICSPC 

268 

T  ANGT=g  I CT  AN  C  ALFA  IR )  -UICTAM  C  ALFASR  ) 

UICSPC 

269 
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CSftU=COS(ALFflAU) 

CS1=C0S(ALFA1R) 

CL=a.  0/SIGUt1S(  ISTAGE)*TANGT*CSAU 
CDS=0*  018*(CL**2) 

OMEGSE=CDS*SIGUHS ( ISTAGE ) • ( CSl»«a ) ✓ ( CSAU»*3 ) 

H=SRT I P ( I ST AGE ) -SRHUB ( I STAGE ) 

SHR=SC( ISTAGE)/H/SIGUMR( ISTAGE) 

CDA=O.OaO*SHR 

Ot1EGAN=COA*S  I  GUMS  ( I  ST  AGE  )  *  (  CSl**a)  /  (  CSAU**3  ) 

IF(IPRIMT.EQ.a)  URITE(G.300a) 

$0MEGA4>  OMEGSE. GMEGAM. OMEGAS. COS. CDA 
300a  FORMAT (1H0.6F10. 5) 

OMESa=OMEGSE 

OMEAa=OMEGAM 

AINCIS=ALFAa-BETlMS( ISTAGE) 

ADEUIS=BETaM-BETaMS( ISTAGE) 

ALFA3R=ALFA3*PAI/180 . 0 
US^UZ-^COS  ( ALFA3R ) 

CALL  UICRSL ( SIGUMSC ISTAGE ) . ALFAa. ALFA3. SC( ISTAGE) . DAU. CUR. OMEGAR) 
DELP4=OMEGA4*0 . 5*RH0G ( 2 ) /GC* (03**3) 

IF(IPRINT.EQ.a)  WRITE(B.3003)  0MEGA4.DELP4 
3003  FORMATCIH  .  lX.»!0MEGA4=fi.aF10.5) 

CALL  UICISLC ISTAGE. SRTIP( ISTAGE). XUM(a).XG>RHOG(a>. ALFAa. Oa.MMl 
s.uua.m) 

BMIMPS=UU 

IF(BMIMPS.GT.UUMAS)  BMIMPS=UWMAS 
BMREBS=BMI MPS*PREB/ 100.0 
BMWAKS=BMIMPS*( 1. O-PREB/100.0) 

IF(IPRIMT.EQ.a)  URITE(6.6616) 

6616  FORMATCIH  .  1X.»<IMPINS?!) 

IF(IPRIMT.EQ.a)  URITE(6.661?)  XUU(a)>XA.RHOG(a).UZ.UU.Bt1IHPS.BM 
SREBS. BMUAKS 

6617  FORMATCIH  .8(Fia,5. IX) ) 

RSTl=RADia(  ISTAGE)**a-AAAa*l44.0/a.  0/PAI 
RST1=SQRT(RST1) 

RSTa=a. 0*RADia( ISTAGE)**a-RSTl**a 
RSTa=SQRT(RSTa) 

DELR= ( RSTa-RST 1 ) / la . 0 
FMASSS^BMWAKS/DELR 

CALL  WICFMLC oa. 03. FMASSS. RHOGB. SC( ISTAGE) . SIGUMS( ISTAGE) . BETAl. 
SBETAa.CDF.OMEGAF) 

0MEGA5=0MEGAF 

DELP5=0MEGA5*0 . 5*RH0G ( 3 ) /GC* ( 03**3 ) 

IF(IPRIMT.EQ.a)  URITE(G.6618)  0MEGA5.DELP5 

6618  FORMATCIH  .  lX.><0MEGA5=J«.aFl0.5) 

CALL  UICSTLC ISTAGE. 8. OAO. Ml . UZ, DELO. Oa. 03. UUMAS. OZ.M. BETAl. BETAS. 
SALFAa. ALFA3. BMASS. DELOUB. DELOLS. OMEGRU. OMEGRL. OMECSU. OMEGSL. 
SDRAGRU. ORAGRL. ORAGSU. DRAGSL.REAOE) 

0MEGA6=0MEGSU+0MEGSL 
DELP6=OMEGA6*0 . 5*RH0GC  3 ) ^GC*(0a**3) 

IFCIPR1MT.EQ.3)  URITEC6.6619)  0HEGA6.DELP6 

6619  FORMATCIH  ,  lX.»«OMEGA6=i<.aF10.S) 

REAOEa=REAOE 

REAOE=  C  REAOE 1 +REAOEa ) *0 . 5 

PRa3= 1 . 0- C  0MEGA8+0MEGA4+0MEGAS+W1EGA6 ) * ( 1 . 0-PSa/P( 3 ) ) 
PR13-(TG(a)/TG(l))**Gl  *PRREL*PRa3/'PP 
PR13I=CTGC3)/TGC 1 ) )**G1 
PC3)=PR13*PC1) 

TGC3)=TGCa) 

TS3=TG  C  3 )  -03**3/'  C  3 . 0*CPMIX*GC*AJ  ) 

AG3=  C  GAMMA*RMI X*TS3*GC ) **0 . 5 
ASPEED*U I C ASD  C  XMT ( 1 ) . RHOG ( 3 ) . AG3 ) 

ASPED3*ASPEED 

AMAC3=03/ASPEED 

PS3*  ( 1 . 0+Ga*AMAC3**a )  **  C  -G1 )  •?(  3  ) 

RH0G3*PS3^RMIX/'TS3 

RH0GC3)»RH0G3 

RH0M3*  1 . 0  /  C  XG/RH0G3+XHT  C 1 )  /'RHOU  ) 

0Z-BMASS/RH0G3/AAA3 

0Z3CL=0Z 
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IF(JJJJ.EQ.S)  GO  TO  3010 
iF(jjjj.GT.a)  GO  TO  3oao 
XXX1=U23AS 
YYY1=UZ3CL 
JJJJ=JJJJ+1 
GO  TO  3001 
3010  XXXa=UZ3AS 
YYYa=UZ3CL 

U2*M1CNEU  ( XXXI .  YYVi .  xxxa.  vwa) 

IF(IPRIIiT.EQ.a)  URITE(6.3030)  JJJJ.UZ 
3030  FORMATCIH  .  IX.  ia.aX.9tUZ33=i><.F10.5) 

JJJJ=JJJJ+1 
GO  TO  3001 

30a0  IF(ABS((0Z3AS-UZ3CL)/'UZ3AS).LT.EPS)  CO  TO  4000 
xxxi=xxxa 
YYYl=YYVa 
XXXa=UZ3AS 
YYYa=UZ3CL 

UZ=U1CNEU(XXX1. YYYl, xxxa. YVVa) 

IF(IPRIMT.EQ.a)  URITE(6.3040)  JJJJ.UZ 
3040  FORtlATdH  .  IX.  ia.»!0Z33=!«.F10.5) 

JJJJ=JJJJ+1 

IF(JJJJ.EQ.aO)  GO  TO  4000 
GO  TO  3001 
4000  UZ3=UZ3CL 

FA13=UZ3/UTIPG( ISTAGE+1 ) 

TU(3)=TW(a) 

TUU(3)=TU(a) 

0MEGTR=0nEGAl-*-QI1EGAa-*-0t1EGA3+0(1EGA7 
0nEGTS=0nEGA4'f0nEGA5-i-0nEGA6-«-0nEGA8 
POMEG 1 =OMEG A 1 /OMEGTR* 1 0 0 . 0 
POMEGa=OMEGAa/OMEGTR*100. 0 
P0MEG3=0riEGA3/0MEGTR*  100.0 
P0MEG4=0MEG  A4/'0MEGTS*  100.0 
P0MEG5=0MEGAS/0MEGTS* 100.0 
POMEGG=OMEGAG/OI1EGTS*l  00.0 
POf1EG7=OMEGA7/OI1EGTR*  100.0 
P0MEG8=0MEGAa/0MEGTS* 100.0 
PRATI0=P(3)^P(1) 

TRATI0=TG(3)/TG(1) 

CALL  UICPRP(XA,XU(3).XCH4.TG(3).RHIX.OT1IX.CAIim.Cl»Ca.C3) 
GAnmasGAMMA 

GAMMAU= ( GAMMA 1 +GAMMAa ) /a . 0 

G4= ( GAMMAO- 1,0) /GAMMAU 

ETAA  <  I  STAGE ) = <  PRAT  1 0**G4- 1 . 0  ) /' <  TRATIO-1 . 0  ) 

IF(IUMIT.NE.a)  GO  TO  859 

UT I PG < I ST AGE ) =U T I PG ( I ST AGE ) *CFU 

P(1)=P(1)*CFP 

P(a)=P(a)*CFP 

P(3)=P(3)*CFP 

PS1=PS1*CFP 

psa=Psa*CFP 

PS3=PS3*CFP 

TG(1)=TG(1)*CFT 

TG(a)=TG(a)«CFT 

TG(3)=TG(3)*r:FT 

TS1=TS1*CFT 

TSa®TSa*CFT 

TS3=TS3*CFT 

RHOG(l)«RHOG(l)*CFD 

RHOCa=RHOGa«CFD 

RH0G3sRH0C3»CFD 

RHOM(l)«RKOM(l)»CFD 

RHOIia«RHOMa*CFD 

RH0ri3=RH0M3*CFD 

UZleUZl*CFU 

uza*uza*cFu 

UZ3=UZ3*CF0 

oi=yi*CFU 

ua=ua*CFu 


UlC^C 

UICSPC 

WICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

WICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 

UICSPC 


izz 


U3=U3*CFU 

WICSPC 

410 

W1=W1*CFU 

WICSPC 

411 

W2=U2*CFU 

WICSPC 

412 

U ( I STAGE ) =U  C I STAGE ) *CFU 

WICSPC 

413 

UU2 ( I STAGE ) =UU2 l I STAGE ) *CFU 

WICSPC 

414 

U( ISTAGE+1 )=U( ISTAGE+1 )*CFU 

WICSPC 

415 

US1=US1*CFU 

WICSPC 

416 

US2=US2*CFU 

WICSPC 

417 

WS1=WS1*CFU 

WICSPC 

418 

WS2=WS2*CFU 

WICSPC 

419 

ASPED1=ASPED1*CFU 

WICSPC 

420 

ASPED2=ASPED2*CFU 

WICSPC 

421 

ASPED3=ASPED3*CFU 

WICSPC 

422 

AAA1=AAA1«CFA 

WICSPC 

423 

AAA2=AAA2»CFA 

WICSPC 

424 

AAA3=AAA3*CFA 

WICSPC 

425 

859 

CONTINUE 

WICSPC 

426 

URITE(6,404)  FAIO. ISTAGE 

WICSPC 

427 

404 

WICSPC 

•  428 

$p!INITIAL  FLOW  CDEFFICIENT-p*.  1X.F?.5»  IX.  »!(STAGE=^.  12.  IX, 

WICSPC 

429 

ax.  »i********************J<) 

WICSPC 

430 

WR I TE ( G. 40 1 1  PRAT I 0 . TRAT I 0. ETAA ( ISTAGE ) 

WICSPC 

431 

401 

FORMAT (lH0.5X.ji3T AGE  TOTAL  PRESSl«E  RATI0=J‘,F12.5, /, 

WICSPC 

432 

$6X.?!STAGE  TOTAL  TEMPERATURE  RATIO=»<,F12.5,^, 

WICSPC 

433 

SGX.ssSTAGE  ADIABATIC  EFFICIENCY=»<,F12.5) 

WICSPC 

434 

WR1TE(G,402)  FAIl.UZl.UTIPGdSTAGE) 

WICSPC 

435 

402 

FORMAT!  1  HO. SX.jiST AGE  FLOW  C0EFFIC1EMT=JS.F5.3, /. 

WICSPC 

436 

SGX.fiAXIAL  UEL0CITY=!>!.F7.2./', 

WICSPC 

437 

*GX,?:ROTOR  SPEED=;i,F7.£./) 

WICSPC 

438 

UR I TE ( G . 403 )  PR 1 3 . PR 1 3 I . PRREL, PR23 

WICSPC 

439 

403 

FORMATdH  .5X.«TAGE  TOTAL  PRESSl«E  RATI0(ACTUAL)=^,F12.5,/, 

WICSPC 

440 

$GX,fSTAGE  total  PRESSURE  RATIO(IIKAL)=!«.F18.5./, 

WICSPC 

441 

SGX.J^LOSS  FACTOR  IN  R0T0R=j<,F12.5./', 

WICSPC 

442 

SGX.s^LOSS  FACTOR  IN  STAT0R=X,F12.5./) 

WICSPC 

443 

WRITE(G.405) 

WICSPC 

444 

405 

FORMAT! 1H0.24X.?<*ROTOR  INLET*  *ROTOR  OUTLET*  *STAT0R  OUTLET*^) 

WICSPC 

445 

WRITE(G.40G)  P(1).P(2),P(3) 

WICSPC 

446 

406 

FORMATdH  .IX.JiTOTAL  PRESSURE^.  10X,3(F10.2, 5X) ) 

WICSPC 

447 

WRITE(G.407)  PS1.PS2.PS3 

WICSPC 

448 

407 

FORMATdH  .lX.jiSTATIC  PRESSUREj!,9X.3(F10.2.5X) ) 

WICSPC 

449 

WRITE(G.408)  TGd).TG(2),TG!3) 

WICSPC 

450 

408 

FORMATdH  .lX.xTOTAL  TEMPERATURE(GAS)»!.3X,3(F10.4,5X)) 

WICSPC 

451 

WRITE(G.409)  TS1.TS2.TS3 

WICSPC 

452 

409 

FORMATdH  .  IX.  STATIC  TEMPERATURE(GAS)!«,  IX.  3(F10.4.5X) ) 

WICSPC 

453 

WRITE! 6. 410)  RHOGd ).RH0G2.RHQG3 

WICSPC 

454 

410 

FORMATdH  .lX.JiSTATIC  DENSITY(GAS)i«,5X. 3(F10.4,5X) ) 

WICSPC 

455 

WR  I  TE  (  G .  4 1 1 )  RH'JM  d  ) .  RH0M2 ,  RH0M3 

WICSPC 

456 

411 

FORMATdH  .lX.JiSTATIC  DENSITY(MIXTURE)J«.  IX. 3(F10.4.SX) ) 

WICSPC 

457 

URITE(G,412)  U2l.U22.UZ3 

WICSPC 

458 

412 

FORMAT!  IHO.  IX.  ^^AXIAL  UELOCITYs«,  10X.3(F10.4, 5X) ) 

WICSPC 

459 

WRITE(G,413)  U1.U2.U3 

WICSPC 

460 

413 

FORMATdH  .  IX.  Ji ABSOLUTE  UELOCITY>«.7X.3(F10.4,5X)  ) 

WICSPC 

461 

WRITE(6.414)  U1.W2 

WICSPC 

462 

414 

FORMATdH  .lX.XRELATIUE  UELOCITY^.7X.2(F10.4,5X)) 

WICSPC 

463 

WRITE! G, 415 )  U( ISTAGE) . UU2( ISTAGE) .U( ISTAGE^l ) 

WICSPC 

464 

415 

FORMATdH  .IX.JtBLADE  SPEEDj^.  13X.3(F10.4.5X) ) 

WICSPC 

465 

WRITE(G,41b)  US1,US2 

WICSPC 

466 

416 

FORMATdH  .IX.jiTANG,  COMP.  OF  ABS.  UEL.4,2(F10.4,5X)) 

WICSPC 

467 

WRITE(6.417)  US1.US2 

WICSPC 

468 

417 

FORMATdH  .IX.KTANG.  COMP.  OF  REL.  UEL.P,2(F10.4,5X) ) 

WICSPC 

469 

WR I TE ( 6 . 4 1 8 )  ASPED 1 . ASPED2. ASPED3 

WICSPC 

470 

418 

FORMATdH  .  IX.  ACOUSTIC  SPEEDS.  10X,3(F10.4,5X) ) 

WICSPC 

471 

WRITE(6.419)  AMAC1.AMAC2.AMAC3 

WICSPC 

472 

419 

FORMATdH  ,1X.>«ABS0LUTE  MACH  mJMBER>‘,4X.3(F10.4,SX)) 

WICSPC 

473 

WRITE(6.420)  AMACHl. AMACH2 

WICSPC 

474 

420 

FORMATdH  .IX.XRELATIUE  MACH  NUMBERj»,4X,2(F10.4,5X) ) 

WICSPC 

475 

WRITE(6.421)  FAI1.FAI2.FAI3 

WICSPC 

476 

421 

FORMATdHO.lX.JiFLOW  COEFFICIENT»«,8X.3(F10.4,5X)) 

WICSPC 

477 

WRITE! 6. 422)  AAA1.AAA2. AAA3 

WICSPC 

478 

422 

FORMATdH  .IX.jiFLOW  AREAX,  15X,3(F10.4,SX) ) 

WICSPC 

479 

223 


non 


URITE(6.4S3)  RLFR1.RLFR3.ALFA3 

423  FORMAT(1H0.1X.>«ABSOLUTE  FLOM  ANCLEK.SXt3(F10.4f 5X) ) 
URITE(6>424)  BETAl.BETAE 

424  FORMATCIH  , IX. XRELATIUE  FLOU  flNGLE»».5X.3(F10.4.5X) ) 
URITE(6.425)  AINCIR. AltiCIS 

425  FORMATCIH  .  lX.;<iriCIDEhCE^.  16X.2(F10.4.5X)) 
URITE(6.42G)  AOZUIR. ADEUIS 

426  FORMATCIH  . 1X.XDEUIATION>‘.30X.2(F10.4.5X>) 
IF(IUNIT.NE.2)  GO  TO  860 

UTIPG(  ISTAGE)=UTIPG(  ISTAGEJ-'CFU 

P(1)=P(1)/'CFP 

F"(2)=P(2)/CFP 

P(3)=P(3)^CFP 

PS1=PS1/CFP 

PS2=PS2/CFP 

PS3=PS3>'CFP 

TG(1)=TG(1)/'CFT 

TG(2)=TG(2)^CFT 

TG(3)=TG(3)/CFT 

TS1=TS1^CFT 

TS2=TS2^CFT 

TS3=TS3/CFT 

RH0G(1)=RH0G(1)^CFD 

RH0G2=RH0G2/CFD 

RH0G3=RH0G3/CFD 

RHOM(n=RHOt1(l)/'CFD 

RH0M2='’H0M2/CFD 

RH0M3=RH0M3xCFD 

U21=UZ1/CFU 

UZ2=UZ2/CF0 

UZ3=UZ3/CFIJ 

U1=U1^CFU 

U2=U2/'CFU 

g3*U3/CFU 

Wl=Hl/CFU 

U2*M2/CFU 

U( 1STAGE)*U( ISTAGE)/CrU 

UU2(  ISTAGE)*UU2(  ISTAGE)/t:Fg 

U( ISTAGE+1 )=U( ISTAGE+1 )/CFg 

USl=gSl/CFU 

gs2=us2/CFg 

HSUUSIXCFO 

MS2=WS2^CFg 

ASPEDlaASPEDl^CFU 

ASPED2=ASPED2^CFU 

ASPED3»=ASPED3^CFU 

AAAlsAAAl^CFA 

AAA2=AAA2/CFA 

AAA3=AAA3^CFA 

860  CONTINUE 

339  RETURN 
END 


C 

SUBROUTINE  UICMAC  C 


C 

ICCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  (4ICMAC(  ISTAGE.  ANASSN.  TOlC.PRESt  M.  UZ.  C.  XUl .  ALFA. 

SRMIX.CPMIX.AREAl) 

REAL  N  .NA1.NC1.NA2.NC2.NANEU.NCNEU 

COMMON  TD(7).IUNIT 

COMMON  CFL. CFT. CFP, CFD. CFM. CFU, CFA 

COMMON  JPERFM. RHOGC  3 ) . RERUP. RERLOU. RESUP. RESLOU 

COMMON  PRED.RRTIP(8).SRTIP(8).AAAl>AAA2.AAA3.SAREA(6).SfffiEAS(7) 

COMMON  P(3).TG(3).XA.XU(3).XCH4.XU(3).XUU(3).XUTl3).TU(3).TUU(3) 

COMMON  OMEGS ( 7 ) . OMEGR ( 6 ) . CAPR ( 6 ) . GAPS ( 6 ) 

COMMON  RRHUB(6)  .  RC(6)  .  RBLAOE(6)  .  STAGER(6) 

COMMON  SRHUB(7)  .  SC(7)  .  SBLAI)E(7)  .  STACES(7) 

COMMON  SICUMR(6)  .  BET1SR(6)  .  BET2SR(6)  .  AINCSRCG)  .  ADEUSR(6) 
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480 

UICSPC 
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UICSPC 

489 

WICSPC 

490 

UICSPC 

431 

UICSPC 

492 

UICSPC 

493 

UICSPC 

494 

UICSPC 

495 

UICSPC 

436 

UICSPC 

497 

WICSPC 

498 

UICSPC 

439 

WICSPC 

500 

UICSPC 

501 

UICSPC 

502 

UICSPC 

503 

WICSPC 

504 

UICSPC 

505 

UICSPC 

506 

UICSPC 

507 

UICSPC 

508 

UICSPC 

5C9 

UICSPC 

510 

UICSPC 

511 

WICSPC 

512 

UICSPC 

513 

WICSPC 

514 

WICSPC 
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WICSPC 

516 

WICSPC 
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UICSPC 
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UICSPC 
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UICSPC 

520 

UICSPC 
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WICSPC 

522 

WICSPC 

523 

WICSPC 

524 

UICSPC 
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WICSPC 
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WICSPC 
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WICSPC 
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529 

UICSPC 

530 

UICSPC 

531 

UICMAC 

1 

UICMAC 

2 

UICMAC 

3 

UICMAC 

4 

UICMAC 

5 

UICMAC 

6 

UICMAC 

7 

UICMAC 

8 

UICMAC 

9 
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10 
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11 
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12 
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13 
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14 
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15 
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17 
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COMMON  SIGUMSC?)  .  BET1SS(7)  .  BETasS(7)  .  ftINCSS(7)  .  flDEUSS(7) 
COMMON  UTIPG(6)tUTIP(6)iUTIPD(6).U0U(E>tUMEAN(B)>UHUB(6)fU(6)tFAI 
COMMON  PREP ( 6 ) . PREPS ( 7 ) . UUS ( 6) . UTIPS(6 ) t  UMEPN2 ( 6 ) >  UHUB2 ( 6 ) . IPRIN' 
COMMON  I CENT. IICENT.FMR1(6).FMP2(6).IDESIN.FPI0 
COMMON  NS.NS1.RT(6).RM(B).RH(6).ST(6).SM(6).SH(6) 

COMMON  DSMPSS .PPREP(7).PPREPS(7).PR12D(B).PR13D(B). ETPRD ( B ) 

COMMON  DR ( B ) . DS ( 6 ) . DEQR ( 6 ) . DEQS ( B ) . BLOCK ( B  > . BLOCKS ( 7 ) 

COMMON  BETIMR ( B ) . BET2MR ( B ) . BET1MS( 7 ) , BET2MS( 7 ) . RPDI 1 ( B ) , RPDI2 ( B ) 
GPMMP=  1 . 0/'  ( 1 . 0-RM I X/CPM I X/778 . 0 ) 

G2=(GPMMP-1.0)/'2.0 

G3=-1.0/(GPMMP-1.0) 

MP1=0.5 

RHOG 1 =PRES/RM I X^TO 1 G 

RHOGS=( 1 • 0+G2*MPl**2)**G3*RH0Gl 

RH0U=G2.4 

RHOMS=l  .O/'C  ( 1 . 0-XUl  )/RHOGS+XUl/RHOW) 

TS=T01G/( 1 . 0+G2*MPl**2) 

P=SQRT  <  GPMMP*RM I X*TS*32 . 1 74 ) 

C=U ICPSD ( XU 1 . RHOGS . P ) 

I F  ( JPERFM .  NE .  3 )  UZ=PMPSSM/RH0MS/'PREP1 
I F  ( JPERFM .  EQ .  3 )  U2=PMPSSM^RH0GS/'PREP1 
I F ( PMPSSM . LT . 0 . 00 1)  U2=UT IPG ( ISTPGE )*FPI 
PLFPR=PLFP*3. 1415927/'ia0.0 
MC 1  =UZ-"C/COS  (  PLFPR ) 
tlP2=0.G 

RHOGS= ( 1 . 0+G2*MPa**2 ) **G3*RH0G1 
RHOMS= 1 . 0/ ( ( 1 . 0-XU 1) /RHOGS+XUl^Rt«W ) 

TS=T01G^(  1 . 0+G2«MP2**a ) 

P=SQRT ( GPMMP*RM I X*TS*32 . 1 74 ) 

C=U ICPSD ( XU 1 . RHOGS . P ) 

I F ( JPERFM . NE . 3 )  UZ=PMPSSM/RH0MS^PREP1 
I F  ( JPERFM .  EQ .  3 )  UZ=PMPSSM/-RHQGS^PREP1 
I F ( PMPSSM . LT . 0 . 0  0 1)  UZ=UT I PG ( ISTPGE ) *FPI 
MCa=UZ/C/COS( PLFPR) 

J=1 

300  MPNEW=UI  CNEU  ( MP 1 ,  MC  1 .  MP2 .  MCa  ) 

RHQGS=(  1 . 0+G2*MPNEU**2)**G3*RHOG1 
RH0MS=1 . 0/( ( 1 . 0-XUl )/RHOGS+XUl/RHOH) 

TS=T01G/( 1 . 0+G2»MPNEU**2) 

P=SaRT ( GPMMP*RM I X«TS*32 . I 74 ) 

C=U ICPSD ( XU 1 . RHOGS . P ) 

I F ( JPERFM . NE . 3 )  UZ=PMPS5M/RH0MS^PREP1 
I F  ( JPERFM .  EQ .  3 )  <JZ=PMPSSN/'RH0GS-'PREP1 
I F ( PMPSSM . LT . 0 . 0 0 1)  U2=UT I PG ( ISTPGE ) *FPI 
NCNEU=UZ/C/CQS( PLFPR ) 

Er<ROR=PBS  ( MPNEU-MCNEU ) 

ERROR=ERROR-'MPNEU 

EPS=1.0E-G 

IF( ERROR.lt. EPS)  GO  TO  200 

MP1=MP2 

MC1=MC2 

;1P2=NPNEU 

MC2=MCNEU 

J=J+1 

IFCJ.LT.SO)  GO  TO  300 
URITE(6.403)  ISTPGE 

403  FORMPTClHO.ptMZ  DOES  NOT  CONUERGE  AT  STPCE«^.I1) 

GO  TO  998 
200  M=MPNEU 

IFCPMPSSM.LT. 0.001)  ISTPGE=0 
398  RETURN 
END 
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FUNCTION  UICPSD  (  XU  .  RHOG  .  CG  ) 
RH0USG2.25G7 
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CW  -  495G.04 

WICASD 

9 

SIGUMA  =  (  XW  *  RHOG  )  z'  (  RHOW  -  XW  *  (  RHOW  -  RHOG  )) 

WICASD 

10 

A1  =  (  1.0-5IGUMA  )  •  RHOG  SIGUMA  •  RHOW 

WICASD 

11 

A2  =  (  1.0-  SIGUMA  )  /•  (  RHOG  *  CG*  CG  ) 

WICASD 

12 

A3  =  SIGUMA  /  (  RHOW  •  CW«  CW) 

WICASD 

13 

A4  =  A1  *  (  A2  +  A3) 

WICASD 

14 

WICASD  =  l-Oz-  SORT  (  A4  ) 

WICASD 

15 

RETURN 

WICASD 

16 

END 

WICASD 
*~*-^**  WICBOA 

17 

1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  U I CBOA 
C  C  UICBOA 

C  SUBROUTINE  UICBOA  C  UICBOA 

C  C  UICBOA 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  HICBOA 
SUBROUTINE  UICBOAC OMEGAS. SIGUHA. BETIS. BET55. AINCIS. ADEUIS. AMACHl ,  UICBOA 
1BET1.DE0S.DEQN.SITACS.SITACN.BETSN.X.AK1.AK3.UZ1.UZS.UR1.R1.RS)  UICBOA 
CALL  UICEDDC AK3. UZl . UZ2. URl. Rl. R2. BETIS. BET2S. SIGUMA. OMEGAS.  UICEOA 

$DEOS.SITACS)  W I CBOA 

AINCI=BET1+AINCIS-BET1S  WICBOA 

BET2A=BET2S  U I CBOA 

X1=BET2A  WICBOA 

DELDEQ=UICED(AK3. UZ1.U22. URl. R1.R2.BET1. XI. SIGUHA. AINCIS. AINCI)  WICBOA 

$-OEQS  WICBOA 

ADEUI=ADEUIS+(G.40-9.45*AMACH1+9.45*X)*DELDEQ*AK1  WICBOA 

IF ( AMACHl. LT.X)  ADEUI=ADEUIS-*'G.40«DELDEQ»AK1  WICBOA 

BET2C=BET2S-ADEUIS+ADEUI  WICBOA 

Y1=BET2C  WICBOA 

N=1  WICBOA 

12  IF(N.GT.l)  GO  TO  10  WICBOA 

BET2A=BET2S'-*1 . 1  WICBOA 

10  X2=BET2A  WICBOA 

0£aN=WICE0( AK3. UZl . UZ2. URl. Rl . R2. BETl. X2. SIGUMA. AINCIS. AINCI )  WICBOA 

DELDEO=DEQN-DEQS  WICBOA 

ADEUI=ADEUIS+(G.40-9.45*AMACH1+9.45*X)*DELDEQ*AK1  WICBOA 

IF(AMACHl.LT.X)  ADEUI=ADEUIS+6.40*DELDEQ*AK1  WICBOA 

BET2C=BET2S-ADEUIS+ADEUI  WICBOA 

V2=BET2C  WICBOA 

DELBET=ABS ( ( X2- Y2 ) /X2 )  W I CBOA 

EPS=1.0E-G  WICBOA 

IF (DELBET.LE.EPS)  GO  TO  11  WICBOA 

BET2A=WICNEW(X1.Y1.X2.Y2)  WICBOA 

X1=X2  WICBOA 

Y1=Y2  WICBOA 

N=N-)-l  WICBOA 

IF(N.GT.50)  GO  TO  13  WICBOA 

GO  TO  12  WICBOA 

11  BET2N=X2  WICBOA 

GO  TO  15  WICBOA 

13  WRlTE(G.20n  WICBOA 

201  FORMAT (1  HO. f^DO  NOT  CONUERGE^s)  WICBOA 

15  RETURN  WICBOA 

END  .  _  _  WICBOA 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  W I  CEDE 
C  C  WICEDD 

C  SUBROUTINE  WICEDD  C  WICEDD 

C  C  WICEDD 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  WICEDD 
SUBROUTINE  WICED0(AK3. UZl. UZ2. URl. R1.R2. BETIS. BET2S.SIGUMA.  WICEDD 

SOMEGAS.DEQS.SITACS)  WICEDD 

C1=180.0/3.141532G  WICEDD 

BET1SR=BET1S/C1  WICEDD 

BET2SR=BET2S/C1  WICEDD 

CSB1=C0S(BET1SR)  WICEDD 

CSBB’^COSCBETBSR)  WICEDD 

CSCS=CSB2/'CSBl*(UZlxUZ2)  WICEDD 

CSCSS=CSB2/CSB1  WICEDD 

•rNBl=WICTAHCBETiSR)  WICEDD 

TNB2=WICTAN(BET2SR)*(U22/UZl)*(R2/'Rl)  WICEDD 


TNTM=TNB1-TNB2-(UR1/UZ1 )*( 1 .0-(Ra^Rl )**2)  WICEDD 

DEQS=1 . 12*CSCS+0.61*(CSBl**a)^IGUMA*TNTN*CSCS  WICEDD 

DE0S=flK3*DEQS  WICEDD 

SITflCS=0MEEAS*C3B2/'2. 0/SIGUt1A*(CSCSS**2)  WICEDD 

RETURN  WICEDD 

END  WICEDD 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  WICED 
c  C  WICED 

C  FUNCTION  WICED  C  WICED 

C  C  WICED 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  W I CED 
FUNCTION  WICED(AK3.UZ1.UZ2.UR1.R1»R2>BET1.BET2.SIGUHA.AINCIS.  WICED 

SflINCI)  WICED 

01=180.0/3. 141592G  WICED 

BET1R=BET1/C1  WICED 

BET2R=BET2/C1  WICED 

CSB1=C0S(BET1R)  WICED 

CSB2=C0S(BET2R)  WICED 

CSCS=CSB2/CSB1*(UZ1/UZ2)  WICED 

TNB1=WICTAN(BET1R)  WICED 

TNB2=WICTAN(BET2R)*(UZ2/UZI)*(I«/R1 )  WICED 

TNTN=TNB1-TNB2-(UR1/UZ1)*(1.0-(R2/R1)**2)  WICED 

DEQ1=1.12*CSCS  WICED 

AAA=ABS(AINCI-AINCI3)  WICED 

DEQ2=0.0117*(AAA**1.43)*CSCS  WICED 

DEQ3=0 . G 1 * ( CSB 1 **2 ) /S I GUMA*TNTN*CSCS  WICED 

WICED=DEQl-i-DEQ2-'DEQ3  WICED 

WICED=AK3*WICED  WICED 

RETURN  WICED 

END  _  _  _  _  WICED 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  WICMTK 
C  C  WICMTK 

C  FUNCTION  WICMTK  C  WICMTK 

C  C  WICMTK 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  WICMTK 
FUNCTION  WICMTK(SITACS.AMACH1.DELDE0»AK2)  WICMTK 

IF(DELDEQ.LT.O.O)  GO  TO  10  WICMTK 

A1=0.827*AMACH1  WICMTK 

A2=2.G92*(AMACHl**a)  WICMTK 

A3=2.G75*(AMACH1**3)  WICMTK 

A=A1-A2+A3  WICMTK 

W I CMTK=S I TACS+A  » ( DELDE0**2 ) *AK2  WICMTK 

GO  TO  11  WICMTK 

10  B1=2.S0*AMACH1  WICMTK 

B2=8.71*(AMACH1**2)  WICMTK 

B3=9.3G*(AI1ACH1**3)  WICMTK 

B=B1-B2+B3  WICMTK 

WICMTK=3ITAC8+B»(DELDEa**2)*AK2  WICMTK 

11  RETURN  WICMTK 

END  WICMTK 

WICLOS 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  WICLOS 
C  C  WICLOS 

C  FUNCTION  WICLOS  C  WICLOS 

C  C  WICLOS 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  WICLOS 
FUNCTION  WICL0S(BETl.BET2>SIGUMAfSITA)  WICLOS 

Cl=180. 0/3. 1415326  WICLOS 

BET1R=BET1/C1  WICLOS 

BET2R=BET2/C1  WICLOS 

CSB1=C0S(BET1R)  WICLOS 

C5B2=C0S(BET2R)  WICLOS 

CSCS=CSB1/CSB2  WICLOS 

WICLOS=SITA»2.0«SICUMA/CSB2»(CSCS»«2)  WICLOS 

RETURN  WICLCS 

END  WICLOS 
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C  C  UICIRS 

C  SUBROUTINE  WICIRS  C  UICIRS 

C  C  UICIRS 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  UICIRS 
SUBROUTINE  UICIRSdSTRGE.RiXUliXG.RHOGl.BETAl.Ul.  UICIRS 

lUUl  f  UUS  •  UU  )  UICIRS 

REAL  LUC  UICIRS 

COMMON  TD(7),IUNIT  UICIRS 

COMMON  CFL.CFT.CFP.CFD.CFM.CFU.CFA  UICIRS 

COMMON  JPERFM.RHQG(3)fRERUP>RERLCUtRESUP.RESL0U  UICIRS 

COMMON  PREB>RRTIP(8).SRTIP(8).AAAl.AAA5.AAA3>SAREA(B)fSAREAS(7)  UICIRS 

COMMON  P(3).TG(3).XA.XU(3).XCH4,XU(3).XUU(3).XUT(3).TU(3).TUU(3)  UICIRS 

COMMON  0MEG3(7),0MEGRCG).GAPR(G).GAPS(S)  UICIRS 

COMMON  RRHUB(6)  t  RC(6)  •  RBLADECG)  .  STAGERCG)  UICIRS 

COMMON  SRHUB(7)  .  SC(7)  .  SBLADE(7)  .  STAGES(7)  UICIRS 

COMMON  SIGUMR(G)  .  BETISR(G)  »  BETaSR(6)  .  AINCSR(6)  >  ADEUSRCG)  UICIRS 

COMMON  SIGUMS(7)  .  BET1SS(7)  .  BETaSS(7)  ,  AINCSS(7)  t  ADEUSS(7)  UICIRS 

COMMON  UTIPG(G).UTIP(G).UTIPD(6).U0U(6).UMEAN(G).UHUB(6>.U(6)>FAI  UICIRS 

COMMON  AREACG) . AREAS(7) t UUaCG) . UTIPa(G).UMEANa(6) .UHUBa(G), IPRINT  UICIRS 

COMMON  ICENT.nCENT.FMRl(S).FMAa(6),IDESIN,FAID  UICIRS 

COMMON  NS.NSl.Rr(G).RM(G).RH(G).ST(G).SM(G).SH(B)  UICIRS 

COMMON  OSMASS . AAREA ( 7 ) . AAREAS ( 7 ) . PRiaDC 6 ) . PR 1 3D ( 6 ) . ETARD ( G )  UICIRS 

COMMON  DR(G).DS(6).DEQR(G).DEQS(6)>BL0CK(6).BL0CKS(7)  UICIRS 

COMMON  BETlMR(G).BETaMR(G).BETlMS(7).BETaMS(7).RADIl(B).RADia(B)  UICIRS 

N  =  ISTAGE  UICIRS 

PAI  =  3.1415SaG  UICIRS 

B1  =  1.0  UICIRS 

BaR  =  (  90.0  -  BETAl  +  STAGER  (  N  ))  *  PAI  /  180.0  UICIRS 

Ba  =  COS  c  BaR  )  uicirs 

LUC=XU1/XG*RH0G1  UICIRS 

DS1=0.07*RC(N)  UICIRS 

EETAIR  =  BETAl*  PAI  /  180.0  UICIRS 

f)Sa  =  a.O  *  PAI  *  R  /  RBLADE(N)  *  COS  (BETAIR)  /  UICIRS 

$COS(BaR)  UICIRS 

IF(DSa.GE.RC(N))  DSa=RC(N)  UICIRS 

H=(AAAl*144.0)/(a.0*PAI*R)  UICIRS 

A1=DS1*H*RBLADE(N)/144.0  UICIRS 

Aa=DSasH*RBLADE(N)/144.0  UICIRS 

UUl  =  LUC  *  U1  «  B1  •  A1  UICIRS 

uua  =  LUC  *  ui  *  Ba  *  Aa  uicirs 

UU  =  UUl  +  uua  UICIRS 

RETURN  UICIRS 

END  _  _  _  _  UICIRS 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  UICISS 
C  C  UICISS 

C  SUBROUTINE  UICISS  C  UICISS 

C  C  UICISS 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  UICISS 
SUBROUTINE  UICISSC  ISTAGE  .R  .XUl.  XG  »  RHOGAS  .ALFAB.Ul  >  UICISS 

$uui.uua.uu)  UICISS 

REAL  LUC  UICISS 

COMMON  TD(7),IUNIT  UICISS 

COMMON  CFL.CFT.CFP.CFD.CFM.CFU.CFA  UICISS 

COMMON  JPERFM.Rri0G(3).RERUP.RERL0U.RESUP.RESL0U  UICISS 

COMMON  PREB.RRTIP(8).SRTIP(8).AAAl,AAAa.AAA3,SAREA(B).SAREAS(7)  UICISS 

COMMON  P(3).TG(J).XA.XU(3).XCH4,XU(3),XUU(3).XUT(3).TU(3).TUU(3)  UICISS 

COMMON  0MEGS(7).0MEGR(G).GAPR(B).GAPS(G)  UICISS 

COMMON  RRHUB(G)  .  RCCBl  .  RBLADECB)  .  STAGERCG)  UICISS 

COMMON  SRHUB(7)  ,  SC(7)  .  SBLADE(7)  ,  STAGES(7)  UICISS 

COMMON  SIGUMR(G)  .  BETlSR(B)  .  BETaSRCB)  .  AINCSRCB)  .  ADEUSRCB)  UICISS 

COMMON  SIGUNS(7)  .  BET1SS(7)  .  BETaSS(7)  .  AINCSS(7)  .  ADEUSSC?)  UICISS 

COMMON  UTIPG(G).UTIP(6).UTIPD(6).U0U(6>.UMEAN(6)>UHUB(G).U(G).FAI  UICISS 

COMMON  AREACG). AREAS(7).UUa(G).UTIPa(6).UMEANa(G).UHUBa(G). IPRINT  UICISS 

COMMON  ICENT.IICENT.FMRl(G).FMAa(B).IDESlN.FAID  UICISS 

COMMON  NS.NS1.RT(G).RM(6).RH(B).ST(6).SM(B).SH(B)  UICISS 

COMMON  DSMASS.AAREA(7).AAREAS(7). PR iaD(6).PR13D(G).ETARD(G)  UICISS 

COMMON  DR(6).DS(G).DEQR(G).DEQS(6)»BL0CK(G).BL0CKS(7)  UICISS 

COMMON  BETlMR(G).BETaMR(G).BETlMS(7).BETaMS(7).RADIl(G)>RADia(G)  UICISS 

LUC  =  XUl/  XG  •  RHOGAS  UICISS 
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DS1=(  O.OB  *  SC  (  ISTAGE  )  )  «'  18.0 

PBI=3. 1415926 

Bl=^1.0 

BaR=(90. 0-ALFA2+STAGES(  ISTAGE)  )*PA1/'180.0 
B2=C0S(B2R) 

ALKA2R=ALFA2*PAI/'180. 0 

DS2=2. 0*PA1*R/'SBLADE(  ISTAGE)*C0S(ALFA2R)/'C0S(BPR) 

I F ( DS2 . GT . SC ( ISTAGE ) )  DS2=SC ( ISTAGE ) 

H=(AAA2*144.0)/'i;2.0*PAI*R) 

A 1 =DS 1 *H*SBLADE  aST AGE ) / 1 44 . 0 

A2=DS2*H*SBLADE ( I STAGE ) / 1 44 . 0 

WW1=LI4C*111*B1*A1 

UI12=LWC*U1*B2*A2 

l■jU=UUl+m2 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

SUBROUTINE  WICISL  C 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  UICISL ( ISTAGE. R> XUl . XG. RHOGl . ALFA2. U1 . UUl . UU2. MU) 

REAL  LUC 

COMMON  TD(7).IUNIT 

COMMON  CFL. CFT, CFP. CFD. CFM. CFU. CFA 

COMMON  JPERFM. RHOG( 3 ) . RERUP. RERLOU, RESUP, EESLOU 

COMMON  PREB.RRTIP(8).SRTIP(8). AAA 1.AAA2. A AA3. S AREA ( 6 ) . SAREAS ( 7 ) 

COMMON  P(3).TG(3).XA.XU(3).XCH4.XU(3).XMU(3).XUT(3).TU(3).TUU(3) 

COMMON  OMEGS ( 7 ) . OMEGR ( 6 ) , GAPR ( 6 ) , GAPS ( 6 ) 

COMMON  RRHUB(6)  .  RC(6)  .  RBLADE(6)  .  STAGER(6) 

COMMON  SRHUB(7)  ,  SC(7)  ,  SBLADE(7)  ,  STAGES(7) 

COMMON  SIGUMR(6)  .  BETISRCB)  .  BET2SR(6)  .  AINCSRCB)  .  ADEUSRCB) 
COMMON  SIGUNS(7)  ,  BET1SS(7)  ,  BET2SS(7>  ,  AINCSS(7)  ,  ADEUSS(7) 
COMMON  UTIPG(6).UT1P(6).UTIPD(6).U0U(6).UMEAN(6).UHUB(6).U(6).FAI 
COMMON  AREA ( 6 ) . AREAS ( 7 ) , UU2( B ) , UTIP2( 6 ) , UNEAN2( S ) , UHUB2( S ) , IPRINT 
COMMON  ICENT.IICENT.FMR1(6).FMA8(6).1DESIN,FAID 
COMMON  NS.NSl.RT(6).RM(G).RH(6).ST(6).Sh(6).SH(6) 

COMMON  DSMASS , AAREA ( 7 ) , AAREAS ( 7 ) , PR 12D ( B ) , PR 1 3D ( 6 ) . ETARD ( 6 ) 

COMMON  OR ( 6 ) . OS ( 6 ) . OEOR ( 6 ) . BEOS ( B ) . BLOCK ( B ) . BLOCK 5 ( 7 ) 

COMMON  BET1MR(6),BET2HR(G),BET1MS(7),BET2MS(7).RADI1(B).RABI2{B) 

PAI=3.141592B 

LUC  =  XUl/'  XG  •  RHOGl 

ALFA= ( 90 . 0-ALFAa ) /E . 0*PAI /ISO . 0 

BETA=(90.0+ALFA3)^2.0*FAI/'180.0 

B1=SIN(ALFA) 

B2=SIN(BETA) 

U1=U1*C0S(ALFA) 

U2=U1*C0S(BETA) 

S=2 . 0*PA  I  *SRT  IP  ( ISTAGE )  /'SBLADE  C  ISTAGE  i/'S.O 
GS I =ALFA2+ ( so . 0-ALF A2 ) /2 . 0 
GSIR=GSI*PAI/180.0 
STAGR=STAGES ( ISTAGE ) *PA I / 180 . 0 

Y2=GAPS  ( I  ST  AGE )  ^2 . 0*  ( U I CT  AN  ( STAGR  )  -UICTAN  ( GSIR ) )  t-S 

BAMY1=(90.0-GSI)*PAI/180.0 

Yi=Y2»SIN(BAMYl) 

DAMY2=(GS I -STAGES ( ISTAGE) )*PAI/180. 0 
DSl=Yl/SIN(DAMYa) 

IFCDSI.GT.SCCISTAGE))  BS1=SC(ISTAGE) 

BAMY3=(90. -(90. 0+ALFA2)^2.0)*PA 1/180.0 
DAMY4=STAGES ( I S T AGE ) *PA I / 180 . 0 
0AMY5=ALFA2^PA I / 1 80 . 0 

DAMYB=S-GAPS( ISTAGE)/2.0*(UICTAN(DAMY5)-HICTAN(DAMY3) ) 

BAM Y7=C0S ( DAMY4 ) *HICTAN ( DAMY3 ) +SIN<  DAMY4 ) 

BS2=DAMY6/DAMY7 

I F ( BS2 . GT . SC ( I ST AGE ) )  BS2=SC ( ISTAGE ) 

H=(AAA2*144.0)/(2.0*PAI*R) 

A 1  =BS  1.  *H*SBLABE  ( i  ST  AGE )  / 1 44 . 0 
A2--=BS2»H*SBLABE(  ISTAGE)/144.0 
UU1=LUC*U1*B1*A1 
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WW2=LWC*U2*B2*fla 

UU=UU1+UU2 

RETURN 

END  _  _ 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccx 
c  c 

C  SUBROUTINE  UICUAK  C 

C  C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  UICUNK  (  RHOG  >  U  .  DUAKE  >  OUAKEN  ) 

UTSCOF=1.20E-3 
SIGUMA  =  4.G534E-3 
GC  =  32.174 
WE=21.0 

DUAKEl  =  (  HE  *  SIGUMA  *  GC  )  /  RHOG  z'  U  **  2 
SN=U  I  SC0F**2/'  (  RHOG*S  I GUMA  *DWAKE  1  *GC  ) 

UEL IMT=12 . 0* ( 1 . 0+SN**0 . 36 ) 

D 1 =WEL I MT*S I GUM A«GC/ ( RHOG*U  »*2 ) 

WE=22.0 

DUAKE2=  (  UE*SIGUMA*GC )  z'RH0G/'U**2 
SN=U I SC0F**2/ ( RH0G*S I GUMA  *DWAKE2*GC ) 

WEL I NT= 1 2 . 0  1 . 0+SN**0 . 36 ) 

D2=UELIMT*SIGUMA*GC/( RH0G*U**2 ) 

XXXX=U  1 CNEH  C  DUAiCE  1 .  D 1 .  GHAKE2  >  D2  ) 

SN=U I SC0F*»2/ ( RHOG*S I GUMA*XXXX*GC ) 

UELIMT=12.0*(1.0+SN**0.36) 

DWAKE=HELIMT«SI GUMA*GC/ ( RH0G*U**2 ) 

DUAKEM  =  DUAKE  z  3.2802  *  1.0E6 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c  c 

C  SUBROUTINE  HI CHET  C 

C  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  MICHET(TG1. TG3i TWl. TH3. DAUEN2. DAUEN» 

$DELZI .  'JZ.  WMASSl .  UMASSl ,  AMASS.  CHMASS,  CPG.  CPU,  DELTGH,  DELTUH,  RE) 
DIMENSION  DELHETCSl) 

REAL  ND  ,  KA  .  NU  .  MMASS.NU 

DELTGH=0.0 

DELTWH=0.0 

IF(UMASSl.LT.1.0E-6)  GO  TO  11 
PAI  =  3.1415S27 

D  AUEAU=  ( DAUENa+DAUEN )  -^2 . 0  *  1 .  OE-6*3 .2802 
IF(DAU£AU.LT.1.0E-G)  GO  TO  11 


RHOW  =  62.54 

riD  =  WMASSl  /  (  RHOW  *  4.0  /  3.0  *  PAI  *  (  DAUEAU  /  2.0  )  **  3) 
KA  =  0.015  /  3600.0 
PR=0.7 

Nll=2 . 0+0 . 6*SQRT  ( RE )  *PR»*0 . 33 
HCONUE  =  KA  /  DAUEAU  *  NU 
J  =  1 

1 0  DELT= ( ( TG 1 -TU 1 ) + ( TG3-TU3 ) ) /a . 0 
DELHH  =  HCONUE  -•  4.0  *  PAI  *  <  DAUEAU  /  2  0  )  **2*DELT  * 

$ND*DELZI/'U2 

GMASS 1 =UMASS 1 +AMASS+CHMASS 
DELTGH=DELHH/ ( GMASS 1 *CPG ) 

DELTWH=DELHH/'  ( WMASS 1  *CPW ) 

TG3=TG3-DELTGH 
TW3=TW3+DEUTHH 
DELHET(J)=DELHH 
J=J+1 

IF(J.EQ.2)  GO  TO  10 
EPOR= ABS ( DELHET ( J- 1 ) -DELHET ( J-2 ) ) 

EPS=0.0001 
IF(J.GT.50)  GO  TO  11 
IF(EROR.GT.EPS)  GO  TP  '0 

11  RETURN 
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c+♦+++•»*■^••^++++++++++++  > 
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c  c 

C  SUBROUTINE  WICMftS  C 

c  c 

ccccccrccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  WICNASC  HWl  ,  TWl  .  TU2  .  PPl  ,  PP2  .  TGI  .  TG2  .  DZ  . 
1  PUBl  .  P14B2  .  PUl  .  PU2  .  UZ  .  DOAUEl  .  ODfiUES  ,  HU2  .  UNASSI  . 

I  UNASS2  .  UNASSl  t  UNASS2  .  DNDTAU  .  AMASS  .RE) 


+  0.6219  ) 
PPl  .  DDAUEl 


UZ  .  DZ  >  UMASSl 


PMBl  =  WICPUB(TU1)*144.0 
PWB2  =  WICPUBC  TW2  )*144.0 
PWl  =  (  HMl  *  PPl  )  /  (  HWl 
DMDTl  =  UlCMTRC  TGI  .  TUI 
IPUl  .RE) 

PUaASl  =  PUl 

DMDT2  =  UlCMTRC  TG  2  .  TU  2  .  PP2  .  DDAUE2  .  UZ  .  DZ  .  UMASSl 
IPUaASl  .RE) 

DMDTAU  =  (  DNDTl  +  DMDT2  )  /”  2.0 
UMASS2  =  UMASSl  +  DMDTAU 
UMASS2  =  UMASSl  -  DMDTAU 
HUa=UMASSa/'AMAS3 

PU2CL1  =  (  HU2  *  PP2  )  ^  (  HUa  +  0.6219  ) 

PU2AS2  =  PUl  *  1.05 
DMDT2  =  UlCMTRC  TG2  .  TU2 
1PU2AS2  .RE) 

DMDTAU  =  C  DMDTl  +  DMDT2 
UMASS2  =  UMASSl  -i-  DMDTAU 
UMASS2  =  UMASSl  -  DMDTAU 
HU2  =  UMASS2  /  AMASS 

PU2CL2  =  C  HU2  «  PP2  )  /  C  HU2  +  0.6219  ) 

2  PU2ASN  =  UICNEU  C  PU2AS1 


PUZASl  =  PU2AS2 
PU2CL1  =  PU2CL2 
PU2ASN 
UlCMTRC  TG2 


PP2  .  DDAUE2  .  UZ  .  DZ  .  UMASS2 
)  /  2.0 


PUaCLl  .  Pli2AS2  .  PU2CL2  ) 


PU2AS2 

DMDT2 


UZ  .  DZ  .  UMASS2  .  PU 


TU2  .  PP2  .  DDAUER 

1HAS2  .RE) 

DMDTAU  =  (  DMDTl  +  DMDT2  )  .'  2.0 
UMASS2  =  UMASSl  +  DMDTAU 
UMASS2  =  UMASSl  -  DMDTAU 
HUa  =  UMASS2  /  AMASS 

PU2CL2  =  (  HU2  »  PP2  )  z'  C  HU2  +  0.6219  ) 

ERROR  =  ABS  C  PU2AS2  -  PU2CL2  ) 

EPS  =  0.01 

IF  C  ERROR  .  GT  .  EPS  )  GO  TO  2 

PU2  =  PU2HS2 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  c 

C  FUNCTION  UICMTR  C 

C  c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
FUNCTION  UlCMTRC TTG. TTU. PPP. DAUE. UZ. DZ. MMASS. PU. RE ) 

REAL  KG  .  ND  .  MMASS 
IFCDAUE.lt. l.OE-6)  UICMTR=0.0 
IFCDAUE.lt. l.OE-G)  GO  TO  10 
DD=DAUE*1 . 0E-G*3. 2802 
T  =  C  TTG  +  TTU  )  /-  2.0 
PAI  =  3.14  3926 
RHOU  =  62.2567 
=  DD  ^  2.0 
T  =  T  *  5.0  /  3.0 
PP  =  PPP  *  47.830258 
DU=4 . 240a8E-3*  C  TT** 1 . 5 ) /PP 
SCT=0.60 

SH=2 . 0 +0 . 60*SQRT  C  RE ) *SCT**0 .33 
KG  =  DU  /  DD  *  SH 
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HU= 1 1 1 5 . 3ar 9-0 . G840909* ( TTU-4eO . 0 ) 

PWBB=PU+29 .0^18.0*0. 45^HU*PPP*  <  TTG-TTM ) 

R  =  85,78 

ND  =  MMASS  (  RHOW  *  4.0  ✓  3.0  *  PAI  *  RR  **  3  ) 

WICMTR  =  KG  *  4.0  *  PAI  *  RR  •*  3  *  (  PUBB  ^  TTU  -  PM  /  TTG  )  /  R 
1  *  ND  *  DZ  /  U2 
10  RETURN 
END 

C  ++++++++++++  I 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c  c 

C  FUNCTION  UICPWB  C 

c  c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

FUNCTION  WICPW3(TUB) 

TSTAG=TMB 

TSTAGC= ( TST AG-432 . 0 ) / 1 . 8 
IFCTSTAGC.LT. 100.0)  GO  TO  40 

IFCTSTAGC.GE. 100.0. AND. TSTAGC.LT.200.0)  GO  TO  41 
A=5. 45142 
B=2010.8 
GO  TO  42 

40  A=5.9778 
B=2224.4 
GO  TO  42 

41  A=5.G485 
B=2101.1 

42  AA=A-B/ ( TSTAGC+273 . 0 ) 

PS=10.0**AA 

PS=PS/4.88247E-4 

mCPUB^PS/144.0 

RETURN 

END 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c  c 

c  FUNCTION  WICNEW  C 

C  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
FUNCTION  WICNEHi;Xl.Yl.X2.Y2) 

T=ABS((X2-Xl)/Xi) 

IF(T.LT.l.OE-G)  WICNEW=(Y1+Y2)^2.0 
IF(T.LT.1.0£-G)  GO  TO  100 
A=(Y2-Y1)^(X2-X1) 

B--=Y1-A*X1 

UICNEH=B/(1.0-A) 

100  RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c  c 

C  FUNCTION  HICBPT  C 

C  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
FUNCTION  UICBPT(TSTAG.PSTAG) 

TSTAGC= ( TST AG-492 . 0 ) / 1 . 8 
IFCTSTAGC.LT. 100.0)  GO  TO  20 

IFCTSTAGC.GE. 100.0. AND. TSTAGC.LT.200.0)  GO  TO  21 
A=5. 45142 
B=2010.8 
GO  TO  22 

20  H=5.9778 
D=2224.4 
GO  TO  22 

21  H=5.6485 
B=2101.1 

22  PS=PSTAG*4.88247E-4 
TBOILK=B/  ( A-ALOr.  1 0  C  PS  )  ) 

UICBPT=TB01LK*1.8 

RETURN 
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15 

MICBPT 

16 

M'CBPT 

17 

MlCf.PT 

18 

MICBFT 

19 

MICBPT 

20 

MICBPT 

21 
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c  c 

C  FUNCTION  WICSH  C 

C  C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

FUNCTION  WICSH(TSTAG.PSTAG) 

TSTAGC=  ( TSTAG-49a .  0 )  1 . 8 
IFCTSTAGC.LT. 100.0)  GO  TO  40 

IFdSTAGC.GE. 100.0. AND. ISTAGC.LT.200.0)  GO  TO  41 
A=5. 45142 
B=2010.8 
GO  TO  42 

40  A=5.9778 
B=2224.4 
GO  TO  42 

41  A=5.6485 
B=2101.1 

42  AA=A-B/(TSTAGC+273.0) 

PS=10.0**AA 

PS=PS/4.88247E-4 

UICSH=0 .  G21 8847-PS/'  ( PSTAG-PS  ) 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c  c 

C  FUNCTION  UICTAN  C 

C  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
FUNCTION  UICTAN(X) 

A=COS(X) 

B=SIN(X) 

WICTAN*B/A 

RETURN 

END 

C+++++++++++++++++++++++++++++*++++++++++++++++++++++++++'f++ •»-++♦+++++♦++ 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c  c 

C  SUBROUTINE  WICCEN  C 

c  c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccecccc 

SUBROUTINE  HICCEN(RZERO,UZERO.DD,UZ.DELZZ. ALFAAU.FN. IRS.RHOCAS 
lRHUB,R2,U2.ITIP,UZTINEfXG.XA.XUU.XCH4.RTIPIN) 

REAL  N 

PAI=3. 1415926 

HLF  AAR=ALFAAU*P  A I  /•  1 80 . 0 

IF(DD.LT.l.OE-S)  GO  TO  12 

D=DD*1.0E-6*3.2302 

RHOA=RHOGAS 

RH0D=62.37 

XXAA=XA/XG 

XXUU=XUU/XG 

XXCC=XCH4/XG 

UISCO=  ( XXAA*0 . 057  i5+XXUU*0 . 032S3+XXCC*0 . 035  )<'3B00 . 0 

ENDTIM=DELZZ/UZ 

JJ=10 

DELTIM=ENDTIN/FLOAT ( J J) 

Rl=RZERO 

Ul=UZERO 

TIME=0.0 

JJJ=1 

11  RE=D*U1/UISC0 
Bl=0.44 
N=0.0 

IFCRE.LT.l.S)  Bl=24.0 
IFCRE.UT.l.S)  N=1.0 
IF(RE.GT.1.9.AN0.RE.LT.500.0)  BWS.S 
IFCRE.GT. 1.9. AND.RE.lt. 500.0)  N«0.6 
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B=((UISCO**N)*Bl*PflI*(RHOA**(1.0-N))*6.0)/'(8.0«H?HOD*PflI)  WICCEN 

C=B/(D>*a . 0+N)  )  UICCEN 

um=Rl/'12.0*2.0»PAI*FN/G0.0  WICCEN 

IF(Rl.GT.RTIPIN)  tJWi=RTIPIN>'12.0*2.0*PftI*FM^60.0  UICCEN 

UU2=U2*UICTftN(ALFAAR)  UICCEN 

IF (ALFAAU.lt. 1,0)  UU=UU1  WICCEN 

IF(ALFAAU.GT.l.O)  UU=UWl/'2.0  UICCEN 

A=UW*UU* ( 1 . O-RHOA/RHQD )  UICCEN 

DELU=(A/R1*12.0-C*U1**(2.0-N))*DELTIM  UICCEN 

U2=U1+DELU  UICCEN 

UAUE=U 1 +DELU^2 .0  W I CCEN 

DELR=UAUE*DELTlrl*12.0  WICCEN 

R2=R1+DELR  UICCEN 

TINE=TIME+DELTIN  UICCEN 

1PRINT=1  WICCEN 

IF(IPRINT.EQ.2)  WICCEN 

$URITE(S.101)  Rl.UU.A.UltDELU.U2.UAUE>DELR.R2>TIME  UICCEN 

101  FORMATdH  , 7(F1 1 .4, 2X) . E10.4.2X.F10.4.2X.E10.4)  UICCEN 

Ul=Ua  UICCEN 

Rl=Ra  UICCEN 

JJJ=JJJ+1  WICCEN 

UZTIME=U2*TIME*12.0  WICCEN 

IF(TIME.GT.ENDTIM)  GO  TO  12  UICCEN 

IF(JJJ.EQ.JJ)  GO  TO  12  WICCEN 

GO  TO  11  UICCEN 

12  RETURN  WICCEN 

END  WICCEN 

C  UICDNS 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  U I CDMS 
C  C  UICDNS 

C  SUBROUTINE  UICDNS  C  UICDNS 

C  C  UICDNS 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  UICDNS 
SUBROUTINE  UICDNSC IPRINT. IRAD. ANASUl. ANASUT» ANASU. R1 . R2. STAREA.  UICDNS 

SRSTAUE, RTIP, DNIN, DNOUT, ANASW2. DELNAS)  UICDNS 

FAI=3.141S32S  UICDNS 

RST1=RSTAUE  UICDNS 

A1=STAREA  UICDNS 

Ar:=PAI  •  ( R2**2-R  1**2)/144.0  W1 CDNS 

A2-A2*0.5  UICDNS 

DNCENT=A2-'A1*ANASW  UICDNS 

120  IF(DNCENT.LT.O.O)  DNCENT=0.0  UICDNS 

IF(DNCENT.GT.ANASWT)  DNCENT=ANASWT  UICDNS 

IF(Rl.GT.RSTl)  GO  TO  110  UICDNS 

DNIN=DNCENT  UICDNS 

DNOUT=DNCENT  UICDNS 

GO  TO  100  UICDNS 

110  CONTINUE  UICDNS 

DNIN=0.0  UICDNS 

DNOUT=DNCENT  UICDNS 

100  IF(IRAD.EQ.l)  DNOUT=0.0  UICDNS 

IF(IRAD.EQ.3)  DNIN=0.0  UICDNS 

ANASW2=ANASW1+DNIN-DN0UT  UICDNS 

IF(ANASU2.LT.0.0)  ANASU2sO.O  UICDNS 

I F ( ANASW2 . GT . ANASWT )  ANASW2=ANASHT  U I CDNS 

DELNAS-ANASU2-ANASU1  UICDNS 

1F( IPRINT. EQ. 2)  WRITE(Bf200)  ANASH2,ANASHl,DNINt DNOUT. DNCENT,  UICDNS 

SANASUT.ANASU. DELNAS  UICDNS 

200  F0RNAT(1H0,8(F10.S,3X))  UICDNS 

RETURN  UICDNS 

END  UICDNS 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  WICDNL 
C  C  UICDNL 

C  SUBROUTINE  WICDNL  C  WICDNL 

C  C  WICDNL 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  UICDNL 
SUBROUTINE  UICDNL( IPRINT. IRAD. ANASUl. ANASUT. ANASU. R1 . R2. STAREA.  UICDNL 

SRSTAUE.  RTIP,  DNIiS.  DNOUT,  ANASUE,  DELNAS)  WICDNL 

PAI=3.141592G  WICDNL 


RSTl=RSTAyE  MICDML 

ftl=STAREA  WICDHL 

Aa=PAI*(R2**2-Rl**2)/144.0  HICDML 

h2=A2*0.5  WICDHL 

Dt1CEMT=A2/'Al*AMASW  WICDHL 

120  Ir(DHCENT.LT.O.O)  DHCENT=0.0  WICDHL 

ircDHCENT.GT.AHASWT)  DHCENT=AHASWT  WICDHL 

IF(Rl.GT.RSTl)  GO  TO  110  WICDHL 

DHIN=DHCENT  WICDHL 

DHOUT=DHCENT  WICDHL 

GO  TO  100  WICDHL 

110  CONTIHUE  WICDHL 

EHIN=0,0  WICDHL 

DHOUT=DHCENT  WICDHL 

100  IF(IRAD.EQ.l)  DHOUT=0.0  WICDHL 

IF(IRAD.EQ.3)  DHIM=0.0  WICDHL 

AHASW2=AHASWl+Di’1IH-DH0UT  WICDHL 

IF(AHASW2.LT.0.0)  AHASW2=0.0  WICDHL 

!F(AHASW2.GT.AHASWT)  AHASW2=AHASWT  WICDHL 

TFI  MASsOMA^iLiP-Ai-IA^U  1  UTmMI 

1F(IPRIHT.EQ.2)  WR1TE(G.200)  AHASW2.AHASWl.DHIN>DnOUT.DnCENTf  WICDHL 

SAHASWT.AHASWiDELHAS  WICDHL 

200  FORHAT(1H0.8(F10.5.3X))  WICDHL 

RETURN  WICDHL 

END  WICDHL 

C  ■»4  ♦♦  ♦  *■*■■¥+**■¥*■¥  I  H  ♦  M  WICDRG 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  W I CDRG 
C  C  WICDRG 

C  SUBROUTINE  WICDRG  C  WICDRG 

C  C  WICDRG 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  W I  CDRG 
SUBROUTINE  WICORGCD. DELUl . RHGASl.RHGASB* CD2. DELU2» DRAGl . RE)  WICDRG 

REAL  N.Nl  WICDRG 

GC=32,174  WICDRG 

IPRINT=1  WICDRG 

UISCOG=12.0E-E  WICDRG 

PAI=3. 1415927  WICDRG 

IF(D.GT.O.O)  GO  TO  300  WICDRG 

CD2=0.0  WICDRG 

DELU2=0.0  WICDRG 

DRAG1=0.0  WICDRG 

rE==0.0  WICDRG 

CO  TO  301  WICDRG 

300  RE1=(RHGAS1*D*DELU1)-'UISC0G  WICDRG 

RE=RE1  WICDRG 

Bll=0.44  WICDRG 

N1=0.0  WICDRG 

IFCRE.LT.l.S)  Bll=24.0  WICDRG 

IFCRE.LT.l.S)  Ni=1.0  WICDRG 

IFCRE.GT. 1.9. ANU.RE.lt. 500.0)  Bll»18.5  WICDRG 

IFCRE.GT. 1.9. AND.RE.lt. 500.0)  N1=0.G  WICDRG 

CD1=B11/(RE1**N1)  WICDRG 

DRAG1=0.5*RHGAS1*(DELU1**2)*(PAI*D**2)*CD1  WICDRG 

S/GC  WICDRG 

DAHY=DRAG1*GC/'(CD1*0.5*RHGAS2*(PAI*D**2) )  WICDRG 

IF(IPRINT.EQ.2)  WRITE(6>200)  Dt DELUl.RKCASl.RHCAS2»REl>BlliHl>  WICDRG 

$CD1. DRAGl. DAHV  WICDRG 

200  FORHAT(1H0.10(F10.5.2X))  WICDRG 

DELU2=SQi?T(DAHY)  WICDRG 

RE2=RHGAG2*D>DELU2/UISC0G  WICDRG 

Bl=0.44  WICDRG 

N=0.0  WICDRG 

IF(RE2.LT.1.9)  Bl:=24.0  WICDRG 

IF(RE2.lT.1.9)  N=1.0  WICDRC- 

IF(RE2.CT.  1.9. AND.RE2.lt. 500.0)  Bl>>18.5  WICDRG 

IF(RE2.GT.1.S.AND.RE2.LT.500.0)  H>0.6  WICDRG 

CD2=B1/(RE2**N)  WICDRG 

IF(IPRINT.E0.2)  WRITECG.lOl)  REl.Bll. HI. CDl. DELUl. RE2.BltN.CD2*  WICIKG 

$DELU2  WICDRG 

101  rORHAT(lH0.2X.10(F10.5.2X))  WICDRG 
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mL=AML-»-fU1INGl 

AMS=AMS+AMlNr.l 

AML=AML+AMlNGa 

AMS=Ai1S+AMING2 

AML=At1L+AmMG3 

AMS=Af1S+AmNG3 


RE=(REl+RE2)/2.0 
301  RETURN 
END 

C  +++++++++4-H 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE  UIC5IZ  C 

c 

xccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  UICS12(mASSL«UNASSS»AniNGl.ANING2> AMING3>DLtDSt01>D2t 
$D3. DLINIT>  ANSLL. ANLGE. DSLL. DLGE ) 

TNASS 1  =UMASSL+UNASSS-*' AM  I  NGl  -^AHINGZ+AMINGB 
AML=0.0 
AMS=0.0 

IF(DL.GT.DLIMIT)  AML=ANL+UNASSL 
IF(DL.LT.DLIMIT)  AMS=ANS+UNASSL 
IF(DS.GT.DLINIT)  AML=AML+UNASSS 
I F ( DS . L  r . DL I M I T )  AMS= ANS+UMASSS 
IF(Dl.GT.DLIMIT) 

IF(Dl.LT.DLIMIT) 

IF(D2.GT.DLIMIT) 

IF(D2.LT.DLIMIT) 

IF(D3.GT.DL1MIT) 

IF<D3.LT.DLIMIT) 

TMASS2=AML+AMS 
ERROR=ABS( TNASS l-TnASS2) 

IF(ERROR.LT.l.OE-G)  GO  TO  100 
IF(TNASS2.LT.1.0E-G)  GO  TO  100 
TT=TNA3S1^TMASS2 
IF(TT.LT.l.O)  AML=ANL/TT 
IF(TT.UT.l.O)  AMS=ANS/TT 
IF(TT.GT.l.O)  AML=AHL*TT 
IF(TT.GT.l.O)  AriS=ANS*TT 
100  ANLGE=ANL 
AMSLL=ANS 
ADL=0.0 
ADS=0,0 

IF(DL.GT.DLIMIT.AND.AML.GT.O.O)  ADL=ADL+DL*(mASSL/AML) 
IF(DL.UT,DLIMIT.AND.AMS.GT.O.O)  ADS*ADS+DL* ( UMASSL^AMS ) 

I F ( DS . GT . DL I N I T . AND . AML . GT . 0 . 0 )  ADL=ADL+DS* ( WNASSS/ AML ) 
:F(DS.LT.DLIMIT.AND.Ari3.GT.0.0)ADS=ADS+DS*(  UMASSS/'  AMS ) 
IF(Dl.GT.DLIMIT.AND.AML.GT.O.O)  ADL*ADL+D1*(AMING1^AML) 
IFCDl.LT.DLIMIT.AND.AMS.GT.O.O)  ADS=«ADS+D1*(AMING1/AMS) 

1 F ( D2 . GT . DL I M I T . AND . AML . GT . 0 . 0 )  ADL=ADL+D2* ( AMING2/AML ) 

I F ( D2 . LT . DL I M I T . AND . AMS . GT . 0 . 0 )  ADSaADS+D2* ( AMING2/ AMS ) 
IF(D3.GT.DLIMIT.AND.AML.GT.O.O)ADL=ADL+D3*(AMING3/'AML) 

I F ( D3 . LT . DL I M I T . AND . AMS . GT . 0 . 0 )  ADS»ADS+D3* ( AMI NG3^AMS ) 

DLGE^AOL 
DSLL=ADS 

IFCDL.GT. 0.0. AND. DLGE. GT.OL)  DLGE=0L 
I F ( DS . GT . 0 . 0 . AND . DSLL . GT . DS )  DSLL=DS 
RETURN 
END 


SUBROUTINE  UICPRPC XAIR, XH20. XCH4f T> RMIX« CPMIXt GAMMA. G1 > G2t  C3) 
C  T  IN  R 

C  CPMIX  IN  BTU/LBM-R 
C  RMIX  IN  LBF-FT/LBM-R 

RAIR=1S45. 3/28.364 
RH20=154S. 3/18. 016 
RCH4=1545. 3/16. 043 
XXAIR=XAIR/ ( XAIP+XH20+XCH4 ) 

XXH20=XH20/ ( XA I R+XH20+XCH4 ) 

XXCH4=XCH4/ ( XAIR+XH20+XCH4 ) 
RNIX=XXAIR*RAIR+XXH20*RH20+XXCH4*RCH4 
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CPMIX=XXAIR*WICCPA(T)+XXHaO*WlCCPH(T)+XXCH4*UICCPC(T) 
GflMMft=l  .0/(  1 . 0-RmX/CPMIX/'778.0) 

G1=GPMMA/ ( GPMHA-l . 0 ) 

G2=(GflW1A-1.0)/a.0 

G3=-1.0-'{GAMKA-1.0) 

RETURN 

END 


C 

FUNCTION  UICCPA  C 


C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
FUNCTION  MICCPA(T) 

T  IN  R 

CPAIR  IN  BTU^LBN-R 
TK=5.0/S.0*T 
A=3. 65359 
B=-1.33736E-3 
C=3.a94aiE-G 
D=-1.9114aE-9 
E=o.a754GaE-ia 
R=8314. 3/28. 964 

CP= ( A+B*TK+C*TK**2+D»TK**3+E*TK**4 )*R 

WI CCPA=CP*a . 3885E-4 

RETURN 

END 


+++++++++++++++++++++++ 1 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCL-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


FUNCTION  WILCPH(T) 
T  IN  R 

CPH20  IN  BTU/LBN-R 


TK=S.0/9.0*T 
A=4. 07013 


B=-l,10845E-3 
C=4.15ai2E-6 
D=-a.9G374E-9 
E=0.8070aiE-12 
R=8314. 3/18. 016 

CP= ( A+B*TK+C*TK*»a+D*TK**3*E*TK«*4) *R 

HICCPH=CP*2 . 3885E-4 

RETURN 

END 


FUNCTION  HICCPC(T) 


C  T  IN  R 

C  CPCH4  IN  BTU/LBN-R 
TK«5.0/9.0*T 
A=3. 82619 
B— 3.97946E-3 
C-24.5583E-6 
D«-a2.7329E-9 
E-6.96270E-12 
R-8314. 3/16. 043 

CP«!(A+B*TK+C*TK**2+IH»TK**3*E«TK«i4)«R 

MICCPC=CP*2. 3883E-4 

RETURN 

END 
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SUBROUTINE  U I CGSLC OMEGAS. SIGUMA. BETIS. BET2S. AINCIS. ADEUIS. AHACHl. 
IBETl . DEQS. DEQN. SITACS. SITACN. BET2N. OMEGAN. X. IDESIN. AKl . AKS. AK3 
S.UZ1.UZE.UR1.R1.R2) 

CALL  UICEDO ( AK3. U21 . UZ2. URl . R1 . RS. BETIS. BET2S. SIGUMA. OMEGAS. 
SDEQS. SITACS) 

AINCI=BET1-BET1S+AINCIS 

BET2A=BET2S 

X1=BET2A 

DELDEQ=UICED( AK3. UZl . UZ2. URl . Rl. R2. KTl. XI. SIGUMA. AINCIS. AINCI ) 
$-DEQS 

ADEUI=ADEUIS+( B . 40-9. 45*AMACH1+9.4S*X)»DELDEQ*AK1 
IFCAMACHl .LT.X)  ADEUI=ADEUIS+G.40*DELDEQ*AK1 
EET2C=BET2S-ADEU I S+ADEUI 
Y1=BET2C 


N=1 


12  irCN.GT.l)  GO  TO  10 
BET2A=BET2S*1.1 
10  X2=BET2A 

DEQN=UICED( AK3. UZl . UZ2. URl . Rl. R2. BETl. X2. SIGUMA. AINCIS. AINCI ) 
DELDEQ=DEQN-DEQS 

ADEU 1 = ADEU I S+ ( B . 40-9 . 45*AMACH1 +9. 4S*X ) *DELDEQ»AK 1 
IFCAMACHl. LT.X)  ADEU1=ADEU1S+6.40*DELDEQ*AK1 
EET2C=BET2S-ADEU I S+ADEUI 
Y2=BET2C 

DELBET=ABS( (X2-Y2)/X2) 

EPS=1.0E-B 

IF (DELBET.LE.EPS)  GO  TO  11 
BET2A=W 1 CNEU ( X 1 . Y 1 . X2. Y2 ) 


X1=X2 


Y1=V2 


N=N+1 

IFCN.GT.SO)  GO  TO  13 
CO  TO  12 
11  BET2N=X2 
CO  TO  14 

13  WRITE(6.201) 

201  FORMATCIHO.^DO  NOT  CONUERGEi<) 

GO  TO  15 

14  SI  TACN=WICMTK  ( S I  TAGS.  AMACHl .  DELDEQ.  AIC2) 
0MEGAN=UICL0S(BET1.BET2N. SIGUMA. SITACN) 
SSS=SITACN-SITACS 

15  RETURN 
END 
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C 

SUBROUTINE  HICSDL  C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  UICSOL ( CHORD. SIGUMA. BETAl . BETA2. UG. RHOG. 

$AMASSU. AREA. UZ. IPRINT. OMEGAP ) 

PAI-3.141592G 

RHOGO=RHOG 

RHOPO=AMASSW^AREA/UZ 

RR=RHOPO/RHOGO 

UISCOG«0.128E-4 

C=CHORD/12.0 

RE>UG»C»RHOGO/UISCOG 

DELC=0 . 37^  C  RE**0 . 2 )  /  ( 1 . 0+ 1 . 442*RR )  **0 . 8 

DELP*0. 1402i*DELC 

BETA 1 R=BETA 1 *P A I / 1 80 . 0 

BETA2R=BETA2*PAI/180. 0 

0MEGAP=DELP*2. O^SIGUMA/COSCBET AciR)*(C0SCBETAlR)/C0S(BETA2R) )**2 

RETURN 

END 
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SUBROUTINE  UICSTL 


SUBROUTINE  UICSTL(  ISTAGE>  IROTOR.  OAU. Ml .  U2.  DELUt U2. U3f  I4HASS> UZ. N 
$.  BETAl .  BETA2>  ALFi^S.  RLFA3<  NMASS.  DELUU2.  DELUL2f 
$ONEGRU. ONEGRL. ONEGSU. ONEGSL. ORRGRU. DRACRL. DRACSU. DRACSLt  REAUE ) 
REAL  M.NNASS 
COHNON  TD(7).IUHIT 
COMMON  CFLtCFT.CFP.CFD.CFM.CFU.CFA 
COMMON  JPERFM. RHOG ( 3 ) . RERUP. RERLOM*  RESUP*  RESLOU 
COMMON  PREB. RRTIP(8 ) . SRTIPCS) . AAAI. AAA2. AAA3. SAREACS) . SAREASC?) 
COMMON  P(3).TG(3).XA.XU(3).XCH4.XU(3).XUU(3).XUT(3)>TM(3).TUU(3) 
COMMON  OMEGS  ( 7 ) .  OMEGR  ( 6  ) .  GAPR (  6  )  .  G APS  (  6  > 

COMMON  RRHUB(6)  .  RC(6)  .  RBLADE(6)  .  STACER(6) 

COMMON  SRHUB(7)  ,  SC(7)  .  SBLADE(7).STAGES(7) 

COMMON  SIGUMR(G)  >  BETISRCS)  .  BET2SR(6)  .  AINCSRCS)  .  ADEUSR(6) 
COMMON  SIGUMS(7)  .  BETiSS(7)  .  BETSSS(7)  .  AINCSS(7)  .  A0EUSS(7) 
COMMON  UTIPG(6),UTIP<G).UTIPD(B).UOU(6).UMEAN(S).UHUB(S).U(6).FAI 
COMMON  AREA(6).AREAS(7).UU2(G).UTIPS(6).UMEAN2(6).UHUB2(6).IPRINT 
COMMON  ICENT. I ICENT. FMRl (6) . FMA2(6) . IDESIN. PAID 
COMMON  NS. NSl. Rr(6) . RM(G>. RH(6). ST(6). SM(6>. SH(6) 

COMMON  DSMASS.AAREA(7).AAREAS(7),PR1SD(G).PR13D(6).ETARD(B) 

COMMON  UR ( 6 ) . DS ( B ) . DEQR ( 6 ) . OEQS( B ) . BLOCK ( 6 ) . BLOCKS ( 7  > 

COMMON  BETlMR(B).BET2MR(S),BETlNS(7>,BETaMS(7).RADIl(B).RADI2(B) 

PAI=3. 141S927 

GC=32.174 

puniiscp  P 

IF( IROTOR. EQ. 2)  GO  TO  100 
C  DROPLET  DRAG  IN  ROTOR 
DD=DAU*1.0E-B*3.28 
UG1=U1 

UP1=UG1-DELU 

A1=WMASS*RC( ISTAGE)/12.0/UZ 
A2=RH0U*4 . 0/3 . 0*PA  I  *  (  DD/2 . 0  )*»3 
TN=0.0 

IFCWMASS.GT.O.O)  GO  TO  2000 
GO  TO  2001 

2000  tn=A1/A2 

2001  UAUEs(Ul-»'U2)/2.0 
GMU1=(90.0-BETA1)/2.0*PAI/180.0 
DELUU1=UG1-UP1*C0S(GMU1 ) 

IF(N.GT.2)  DELUU1=DELUU2 
TNU=TN* ( 180 . 0-BETA1-BETA2 )/3B0 . 0 
XUU(2)-XUU(1) 

XWT(2)=XWT(1) 

CALL  WICPRP(XA.XU(2).XCH4.TG(2),RHIX.CPI1IX.CANMA.C1.G2.C3) 
IF(IPRINT.EQ.2)  MRITE(e.4000) 

4000  FORMAT(1HO.!*DROPLET  drag  in  rotor  (UPPER  PART)^) 

CALL  U I CORG  <  DD. DELUU 1 . RHOG ( 1 ) . RH0C(2) . C02>  0ELU2. ORAGl . RE ) 

DELUU2=DELU2 

CDRUs^COa 

PERURsRE 

DRAGRU=DRAG1»TNU 

AREAl=PAI*(RRTIP(ISTAGE)**a-RRHUB<ISTAGE)**2)/144.0/10.0 

DELPRU=DRAGRU/AREA1 

OMEGRU^DELPRU/ ( 0 . S»RHCG ( 1 ) /CC»U1«»2 ) 

CDRUU-CDRU*DELUUa**2*PAI/4.0*DD**a*TNU/UAUE*»2/RC(ISTAGE)*ia.0 
GML1=(90. 0+BETAl )/2. 0*PAI/180.0 
DELUL1=UG1-UP1*C0S(GML1 ) 

IF(N.GT.2)  DELULlsDELULa 
TNL=TN* (180. 0+BETAl +BETAa )/3B0 . 0 
IF(IPRINT.EQ.2)  WRITE(B.4001) 

4001  FORMATdHO. .“DROPLET  DRAG  IN  ROTOR  (LOMER  PART)i«) 

CALL  UICDRG( DD.  3ELUL1 . RHQC(  1 ). RHK(a) . CDB.  DELUB. DRACl . RE) 

DELUL2»DELU2 

CDRL»CD2 

RERLOU^RE 

DRAGRL>DRAG1«TNU 

DELPRL-DRAGRL/AREAl 
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OMEGRL=DELPRL^  ( 0 . 5*RH0G  ( 1 )  /GCwUl^a  ) 

CDRLL=CDRL*DELULa**2*Pfl  I  /4 . 0»DD«*a*Trfl.  AIAUE**a/'RC  ( ISTAGE  )*ia.  0 
IFdPRINT.EQ.a)  MRITECB.aOOa) 
aOOa  FORMATClHO.iCDROPLET  DRAG  SUMriARY»<) 

IFdPRINT.EQ.a)  URITE(G.FaO)DELUUlfDELUUa>DELULlfOEI.ULa.CDRUfCO 
$RUUfCDRL>CDRLL 
$. DRAGRU. DRAGRL 
7aO  FORMATdHO.lOCFlO.S.aX)) 

RUP1=(90 . 0-BETAl )^180 . 0 
RLOW1=(90.0+BETA1)/180.0 
RUPa= (90.0 -BETAa ) / 1 80 . 0 
RLOWa= ( 90 . 0+BETAa ) / 180 . 0 

REAUE=RERUP* ( RUP 1 +RL’Pa ) *0 . 5+RERLOW* ( RLQMl +RLOUa ) *0 . 5 
IFdPRINT.EQ.a)  URITE(6.a010)  RUPl.RUPa.RLOUl.RLQUa 
aolo  FORMAT! lH0.4(F10.5,aX)) 

GO  TO  200 

C  DROPLET  DRAG  IN  STATOR 
100  DO=DAU»1.0E-G»3.a8 
UG1=U1 

UP1=UG1-DELU 

A 1  =mASS*SC  ( ISTAGE )  z'  1 2 . 0-'UZ 
Aa=RH0U*4 . 0/3 . 0*PA I * ( DD/a . 0 ) **3 
TN=0.0 

IFCWMASS.GT.O.O)  GO  TO  5002 
CO  TO  5003 
SOOa  TN=A1/Aa 
5003  UAUE=(U3+Ua)/2.0 
DELUU1=DELUU2 

TNU=TN* (180. 0-ALFAa-ALFA3 ) /3G0 . 0 
IFdPRINT.EQ.2)  WRITE(G.a005) 
a005  FORMAT!  IHO.s^DROPLET  DRAG  IN  STATOR  (UPPER  PART)**) 

CALL  UICDRG ( DD. DELUUl i RH0G(2 ) . RH0C(2) . CDa>  DELU2* DRAG1» RE) 

DELUUa=DELUa 

CDSU^CDa 

RESUP=RE 

DRAGSU=DRAG1*TNU 

AREA2=PAI*(SRTIP(ISTAGE)**a-SRHUBdSTAGE)**2)/144. 0/10.0 

DELPSU=DRAGSU/AREAa 

OMEGSU=DELPSU/ ( 0 . 5*RHOG ( 2 ) /GC*U2**a ) 

CDSUU=CDSU*DELUUa**a*PAI/4, 0*DD**a*TNU/UAUE**a/SC( ISTAGE)*ia.O 
DELULl=DELULa 

TNL=TN* ( 1 80 . 0+ALF Aa+ALFA3 ) /3G0 . 0 
IFdPRINT.EQ.a)  URITE(G.aOOS) 

200B  FORMAT!  1  HO. !*DR0PLET  DRAG  IN  STATOR  (LOWER  PART)**) 

CALL  WICDRG ! DD. DELUL 1 . RH0G(2 ) > RHXCa) . CDB. DELUB. DRACl . RE) 

DELULa=DELUa 

CDSL=CD2 

RESLOW=RE 

DRAGSL=DRAG1*TNL 

DELPSL=DRAGSL/AREAa 

OMEGSL=DELPSL/ ! 0 . 5*RH0G ! 2 ) /GC*Ua**2 ) 

CDSLL=CDSL*DELUL2**a*PAl/4. 0*DD**2*TNL/UAUE**2/SC! ISTAGE)*ia. 0 
IFdPRINT.EQ.a)  WRITE!G.a007) 

2007  FORMAT!! HO. rtROPLET  DRAG  IN  STATOR  (SUMMARY)**) 

1F!IPRINT.EQ.2)WRITE!8.721)  DELUUl. 0ELUUa.DELULl.DELUL2.CDSU. CD 
SSUU.COSL.CDSLL 
...DRAGSU.DRAGSL 
721  FORMAT! lH0.10!F10.5.aX)) 

SUPl=!90.0-ALFAa)/l80.0 
SLOHl=!90.0+ALFAa)/180.0 
SUP2=!90.0-ALFA3)/180.0 
SLOWas  ( 90 . 0-*-ALFA3 )  /1 80 . 0 

REAUE*^RESUP« !  SUPl  -•■SUP2 )  *0 .  S-i-RESLOU*  (  SL0U1*-5L0U2 )  *0 . 5 
lFdPRINT.EQ.2)  UR1TE!G.2011)  SUP 1.SUP2. SLOW l.SLOUa 
2011  FORMAT! 1H0.4!F10.5.2X)) 

200  RETURN 
END 
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C  CUBRCUTINE  UICFML  C  WK.FML  4 

I-  C  WlCFtlL  5 

L~  .{  CCCCrtCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  UICFML  B 

LUbROIJllUL  UICFt1L(lJGl,UG8.Ft1ft3S.RH0Gl. CHORD. SlGUMAtBETfil.BETfl2t  UICFML  7 

$Crr,UI1ECfiF)  UICFML  8 

Pf.l--3.  J.41E9aS  UICFML  9 

UISCGG--0..'.28E-4  UICFML  10 

U.’;SCDL=G.G00E-4  UICFML  11 

C^-CHORD^i2.0  UICFML  12 

1!C.FiU£=0.S«^1;G1+UG2)  UICFML  13 

i;i-:LM=0.5»UGALIEi:iJISCaG^U!SCOL  UICFML  14 

[EF-FMflSf-^-IFILM/(0.5»RH0Gl*UGl«UCl*C)  UICFML  15 

)..-.ifill^^LErH!i;PflI/180.0  UICFML  18 

IFTHEri-^EETria-PAI/lSO.O  UICFML  17 

I'CrftSU^-O.E-CEETFilR+BETftSP)  UICFML  18 

L51-C03(E£  miR)-i;2  UICFML  12 

L'-a=cci^(Lcrn3:;)«-3  uicfml  20 

C!;iiGRF=CDFi;3ICUMF>CSl/CS2  UICFML  cl 

i  :!URh  uicfml  22 

LMO  UICFML  £3 

C  ^  +T^■+^  T+  ^  ■.•v-^-^^-^++•!■++■i■+ :■■;■•;-++++++++++++++++++++++++++++++++++++++++  UICRSL  1 

rCCCCC'-CCCCLCCLCC.XCCLCCtCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  UICRSL  £ 

L  C  UICRSL  3 

c;  GUERD'JTItC  UICRSL  C  UICRSL  4 

I'  C  UICRSL  5 

CCrcrClCXCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  UICRSL  E 

CUfX’OUTIMC  UlCR£L(5iIGUil?.,B£Tfll.PETA2.CHORD.3L.CDR.OMEGftR)  UICRSL  7 

1AI-3.141E2-_G  UICRSL  8 

)KDL.LT.i.CJiL--E)  CE'r^O.O  UICRSL  S 

IF(DL.LT.1.U?-G>  ljiEG<^R=0.0  UICRSL  10 

iriDL.LT.l.OE-6)  Ca  TO  10  UICRSL  11 

LEVAlR=BETHi»PfiI/lS0.0  UICRSL  12 

E£;TA2r=BZTfic«PftI/lC0.0  UICRSL  13 

EETA3R=0.St';BErAlR:E£TA2R)  UICRSL  14 

CS1=C0S(BETA1R):>:2  UICRSL  15 

CS2-:03c6EIA3ro*--3  UICRSL  IB 

C=CriQRD*2.‘jvv0.01*1.0ES  UICRSL  17 

(■|--C/'DL  UICRSL  IS 

IFCA.LT.IOOJ}  )  A=100JD  UICRSL  19 

C.CR=l.r3+l.E2:;fiLOG10(ft)  UICRSL  20 

CDR-1.0/CDR»i-2.5  UICRSL  cl 

OliEGfiR^DRi^CIGCII.-i-XSi/CSE  UICRSL  22 

10  r.'ETURi'l  UICRSL  23 

LMD  UICRSL  24 

C  ■i-+'<-T-r  ■!-:■+++>■!•  UICUT  1 

CCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  UICUT  2 

C  C  UICUT  3 

C  EUEROUTIME.  UICUT  C  UICUT  4 

C  C  UICUT  5 

CCCCCCCCCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  UICUT  G 

SUEROUarC  ,aCUT«.ISVAf.i:,ASPEED.ALFfil.UZ,Ul,  UICUT  7 

lUGl  .  USi  .  EETAl.  U1  .  EETA2  .  US2  .  US2  .  ALFOH  ,  U2  .  U2  .  UICUT  8 

KILFAS  .U3.A;U.AKoJ  UICUT  S 

COMMON  TCI ?i. I UNIT  UICUT  10 

COMMOi!  CFl..i:FT,LFP.CFr.CrM.CFU.CFA  UICUT  11 

COMMON  JPEFrri,RHOGi3J.RERUP.RERLOU.RE5UP.RESLOU  UICUT  12 

COMMON  Fr,EE.n..>TIP(c;),bRTIP(8).AflAl.fiAft2.fifiA3.SAREft(B).SrtREft3(7)  UICUT  13 

COMMON  P(3).TG(3l.^!A.>‘U(3).XCH4.XH(3).XUU(3;i.XUT(3).TU(3).TUU(3)  UICUT  14 

COMMON  0ri£G5(7),UMCCRiB).GAPR(B).CAPS(G)  UICUT  15 

COMMON  RRMUBCG)  .  RC<G>  .  PBLA0E(6)  .  STAGER(6)  UICUT  IB 

COMMON  SRHUG(7)  ,  SC^7>  -  SBLADE(7)  ,  STAGES C 7)  UICUT  IT 

COMMON  SICL'iiR(GJ  .  EETISR(S)  ,  BET2SR(G)  .  AINCSR(B)  .  ADEUSR(B)  UICUT  18 

COMMON  SIC JMS(7;  ,  EETi5S(7)  ,  BETBSSt/)  .  AINCSS(7)  .  ADEUSS(7)  UICUT  IS 

COMMON  UTIPG(b).Ui!P(8),UTTPD(G).U0U(B),UMEAN(B).UHUB(B).U(G).FAI  UICUT  20 

COMMON  AREAfB),Ai:i:ASf7).UU2(G).UTIP2(B).Ut1LAN2(S.i.UHUB2(8).IFRINT  UICUT  21 

COMMON  ICEHi.nCUir,Ii>XUGl,FMA2(B).IDESIN,TAID  UICUT  £2 

COMMON  tiS,NSl,RT>5).Ri..8i.RM(B).ST(G),SM(B).SH(B)  UICUT  23 

COMtlOi!  DSMA'oS,HAr'b'Ar.  ).AAREAS(7J.PR12D(B).PR13D(B).ETARD(B)  UICUT  24 

COMMON  DR(L).DJ(B).D^^P(til.D£Q3(S).BL0CK(6)^BL0CKS(7)  UICUT  £5 

CDMMOM  EEn!iR(BJ.b.a2!,:nBj.BETlMS(7).EET2MS(7I. RADIKS). RAD12(B)  UICUT  £6 
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Pftl  3.1415927  WICUT 

r-1LFAlR  =  ALFAl  «  PAI  180.0  WICOT 

U1  =  U2  /  Crj3  (  ALFAll?  )  WICOT 

03:  --  02  I  All  (  ALFAiF  ;  WICOT 

W3i  =  UCIGThGc)-  U31  WICOT 

T  W31  /  OF  WICOT 

BETAli;  =  ATh,1  (  T)  WICOT 

E2TA1  =  EETAIR  >“  130, C  /  FAI  WICOT 

IT  -  02  "-2  ^  W3:  WICOT 

W1  =  SORT  (  TT  I  WICOT 

filiACHl  =  Wl  AG'^Etl]  WICOT 

CALL  WICBOA  (OMECRC ISTAGE).  SIGUMR  (  ISTAEE  )  ,  BETISR  (  ISTAGE  WICOT 
i;i,bet2sr(istage;>.  wicot 

I  AIMCSR  (  I'JTAGE  ^  .  AUEOSR  (  ISTAGE  )  ,  WICOT 

lAMACHl  .  EEiAl  ,  DCQ3.  OEQll.SITACS.SITACN.BETEN  .  Ft1Rl  ( ISTAGE).  WICOT 

II  iK  1 .  Al<3. 02. 02.  U ( ISTAGE ) .  RADI  1  ( ISTAGE) . RADI2(  ISTAGE ) )  WICOT 

BETAS  =  BETSh  WICOT 

EETA2R  =  BETAS  «  PAI  ^  180.0  WICOT 

i:S2  =  02  «  TAU  (  BETASR  )  WICOT 

OSS  =  U( ISTAGE)  -  WS2  WICOT 

TTT=0S2/02  WICOT 

ALFASR  =  AT AN  (  TTT  )  WICOT 

ALFA2  =  ALFASR  «  IGC.O  /  PAI  WICOT 

ITTT  =  02  2  +  WGS  «»  2  WICOT 

H2  SORT  (  TTTT  )  WICOT 

TTTTT  =  02  2  v  JSS  *»  2  WICOT 

02  -  SQRI  <  TT''!  )  WICOT 

ANACH2  -•  02  /  ASPEEB  WICOT 

CALL  W7LB0A  C0MEG3: ISTAGE).  SI GUMS (ISTAGE)  .  BET 1SS( ISTAGE)  .  WICOT 

ILFTSSS  (  ISTAGE  '  .  AINCSS  (  ISTAGE  )  .  ADE0S3  (  ISTAGE  ).  WICOT 

lAnACH2  .  ALFA2  .  BEGS,  DECIN.  SITACS.  SITACN.  BET2N.  F|-:A2(  ISTAGE) .  WICOT 

1  Ai;  1 ,  A:C3 . 02 . 02 .  0 . 0 ,  P  AD  1 2  ( I  STAGE ) .  RADI  1  ( I STAGE+ 1 ) )  WICOT 

ALFA3  =  BETcN  WICOT 

ALFA3R-ALFA3*PAI/180.0  WICOT 

US^^UZ/COSC  ALFASR;  WICOT 

FETURH  WICOT 

'.NU  WICOT 

C+-H-++-i  +-.■++++•;-++++++++••:•++-;-+++++++++++++++++++++++++++++++++++++++++++++++  WIC®PD 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC3CCCCCCCCCCCCCCC  WICSPD 
c  C  WICSPD 

C  SUBROUTINE  WICSPD  C  WICSPD 

C  C  WICSPD 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  WICSPD 
SUBROUTINE  WICSPDCANhES, ISTAGE)  WICSPD 

REAL  n.lilN.Ml.riE.NlRZl.  .tl2REL  WICSPD 

COMMON  TD( 7,'.  lUNIT  WICSPD 

COMMON  CFL.CFT.CFP.CFD.CFN.CFO.CFA  WICSPD 

go; IMON  JPEFF M,  RHOGC  3 ) ,  f ;ERUP,  RERLOW.  RES'JP.  REoLOW  WICSPD 

CO;  iMON  FREE .  RRT I P  ( 8 ) .  sr^  r  I P  ( 8 ) ,  A AAl .  AAA2.  AAA3 .  SAREA  ( B  ) .  S AREAS  ( 7 )  W I C5PD 

COMMON  P(3J  .TGi:3),XA,>:0v3),XCH<,XU(3).XMW(3;.XWT(3),TW(3),TWW(3)  WICSPD 

COMMON  0MEC3(7).0M£GRi.f:).GAPR(B),GAPS(G)  WICSPD 

CUi'iMON  r,T;HU!3(G).RC(B).RBLADE(G).5TAGER(6)  WICSPD 

COMMON  bPhU3(7),SC(7).SBLADE(7),STAGEG(7)  WICSPD 

COMMON  SIGUi1R(GJ,bETlSR(S),BET2SR(e),AiNCSR(B).ADE0SR(B)  WICSPD 

COMMON  S I GUMS ( 7 ) , BET 1 SS ( 7 ) , BET2SS ( 7 ) . AiMCSS ( 7 ) , ABEUSS ( 7 )  WICSPD 

COMMON  UTIPC(G).UTIP(G),UTIPD(B).UOU(G).UMEAN(B).UHUB(B).U(B).FAI  WICSPD 

COMMON  ARE A ( G ) , AM E AS ( 7 ) , UU2 ( G ) . UT I P2 ( G ) . UMEAN2 ( B ) , UHUB2 ( B ) . I PR I NT  WICSPD 

COMMON  ICENV. I1CENT,FMR1(G).FMA2(6).IDESIN,FAID  WICSPD 

COMMON  NS,NS1,RT(G),RM'B),RH(G),ST(B).SM(B),SH(B)  WICSPD 

COMMON  EbMASS , AARE A ( 7 ) . A ARE AS ( 7 ) . PRl 20 ( G ) . PR 1 3D ( S ) . ET ARD ( B )  WICSPD 

COMMON  DR(e;.DS(G),DECR(G).DEQS<B),BLOCK(B),BLOCKS(7)  WICSPD 

COI IMON  BET  1  MR ( G ) ,  BET2: IR ( B ) , BET  1  NS ( 7 ) . BET2MS ( 7 ) . RADI  1  ( B ) . RAD  12 ( B )  WICSPD 

AJ=778.2E  WICSPD 

1 AI=3.141S92B  WICSPD 

CC-32.174  WICSPD 

|REF=S1S.70  WICSPD 

PRLF=I 4. 7*144.0  WICSPD 

AAAR1T=PAI*-HRRTIP(1)«»2-RRHUE(1)**2)/144.0*BL0CK(1)  WICSPD 

C!  lASS^-  AMASS  .f  SORT  I  TO  ( 1 J  ^  TKEF )  /  ( P ( 1 )  /PREF )  * AA AR 1  T^SAREA  ( 1 )  W I CSPD 

C  IGU  INLET  WICSPD 
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IGTAGE=IS31 

WICSFD 

34 

CftLL  WICPRP (l.O.O.O.O.O.TG(l). RMIX. CPMIX. GfimA. G?. . G2. G3 ) 

UICSPD 

25 

LflLL  UiCnAC(  IS rfiGE,AI1P3S»TG(l).P(l).M.U2.C.0.0.0.0.RMIXf  CPMIX.  ARE 

WICSPD 

36 

snsdiain 

UICSPD 

37 

Ui;iN=U2 

UICSPD 

36 

HVH=C 

UICSPD 

33 

111^=11 

UICSPD 

40 

fOIN=TG(l) 

UICSPD 

41 

P0IM=P(1) 

UICSPD 

42 

PS:';N=Pf  1  )/(1.0+Gc*M**E)*»Gl 

UICSPD 

43 

V SlH^TGC  i  J / ( 1 . 0+C2 ) 

UICSPD 

44 

r^HOGIi'l=PSIN/RllTX/TSIN 

UICSPD 

45 

rAIIN-UZIN/-UTIPG(i) 

UICSPD 

46 

KAID=FAIIH 

UICSPD 

47 

CAIIAIM=GAI1I'Ih 

UICSPD 

43 

VUIM=TG(1) 

UICSPD 

49 

P0IH=P(1 J 

UICSPD 

50 

C  IGU  IMLET  PRIhiOUT 

UICSPD 

51 

irdUNIT.ME.SJ  GO  TO  EGl 

UICSPD 

52 

TOIN-TOIMaCPT 

UICSPD 

53 

PUIN=POIH«a~P 

UICSPD 

54 

'■3IM=TGIN-C;-T 

UICSPD 

55 

('3IH-PriIM«C!-‘P 

UICSPD 

55 

rnaGIN=--PHOCIH»CFD 

UICSPD 

57 

rilH=flIH-CFU 

UICSPD 

5S 

'J2IH=UZINi^CFU 

UICSPD 

59 

l,i;EAS(HSl)=AKEAS(NSn»CFA 

UICSPD 

60 

851  COHTIHUE 

UICSPD 

61 

IIRVTECG,  lOCO.^ 

UICSPD 

62 

1000  1  anilAT(lHl,F*ii'!;»-»v<-«H:»!t»**  DESIGN  POINT  INFORMATION  ************ 

UICSPD 

63 

UICSPD 

64 

RRITECB. 1010) 

UICSPD 

65 

lOiO  rC.RI1AT<iH0.lX.F»..r,e«  CGHFRESaOR  INLET  »***»rf) 

UICSPD 

ES 

11R!TI-.(G.10EQ)  TOrH.POI‘l.T3IN,PSlN,RHOGIN 

UICSPD 

67 

1020  FURNATCiHO.lX.^iTUTAL  lEliPERATURE  AT  COMPRESSOR  INLET=ps.F10.5./. 

UICSPD 

68 

Sa'-.J^TOTAL  PRESSURE  f.T  COMPRESSOR  INLET=p!,F10.a.-', 

UICSFD 

GS 

$L;;;.FSTATiC  TEHPERATURE  at  compressor  INLETs^.FIO-S.-'. 

UICSPD 

70 

srX.f^GTATIC  PRESSURE  fiT  COMPRESSOR  INLET=;«,F10.2,/, 

UICSPD 

71 

SiEX.PSTATIC  DEhoI  i  V  AT  COMPRESSOR  lNLET=i«,F10.5) 

UICSPD 

7c 

UrCiTECB.lOEO)  AIM, UZIIi. HIM, AREAS(NSl). FAUN 

UICSPD 

73 

1030  r-Ur.'MAT(lHO,lX.!iACOUSTIC  SPEED  AT  COMPRESSOR  INLET=s!.P10.5./. 

UICSPD 

74 

UUMv-PriXiAL  UELQCITY  AT  COMPRESSOR  INLET=f!.F10.5./, 

UICSPD 

75 

PllACH  tS'.'ilBER  AT  COt;PR£S3QR  INLET=^,F10.5,/. 

UICSPD 

76 

SUX.PSTREAMrUEE  AREA  AT  COMPRESSOR  INLET=?!, P10.5. 

UICSPD 

77 

SLiX.^sFLOW  COEFFICIENT  AT  COMPRESSOR  INLET=i«.P10.5) 

UICSPD 

76 

IFaUiiIT.ME.2)  GO  Tc  ES2 

UICSPD 

7S 

to:-:h=toin/cft 

UICSPD 

60 

P0!N=F0ItVCFP 

UICSPD 

61 

iGiM-TSIN/CrT 

UICSPD 

£2 

P3iN=F3IN/CrP 

UICSPD 

83 

I  KOGIM=RHaCI!'|/'CFD 

UICSPD 

64 

AlH^HiiVCFU 

UICSPD 

85 

UZ'M=UZIM/Cf-U 

UICSPD 

66 

ARE  A  J  ( ! !?  1 J  =  ARE  AS  ( N3 1)  /CFA 

UICSPD 

87 

862  CONTINUE 

UICSPD 

88 

C  ROTOF.'  INLET 

UICSPD 

69 

I5TAGE=^1 

UICSPD 

SO 

100  1- 1ST AGE-1 

UICSPD 

91 

IFd.EO.O)  I=NS1 

UICSPD 

S2 

ALFA1=BET253(I) 

UICSPD 

S3 

ADEUSS( I )=ALrAl-EET2M5( I ) 

UICSPD 

S4 

CALL  WICMAC < ISTAGE. AMASS, TG( 1 ) , P( 1 ) , M, UZ, C. 0 . 0, ALFAl , RMIX, 

UICSPD 

S3 

SLPMIX.AREAdSTAGD) 

UICSPD 

96 

CPtllXi-CPMIX 

UICSPD 

97 

GAMMA 1 -GAMMA 

UICSPD 

S8 

‘j21=UZ 

UICSPD 

S9 

Al-C 

UICSPD 

ICO 

lll=N 

UICSPD 

101 

PSl =P ( 1) / ( 1 . 0+G2«M 1 **2 ) **G 1 

UICSPD 

102 

TS1-TG( 1 )/( 1 . 0+G2KMl*»2) 

UICSPD 

103 
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RHOGSl  =PS  1  ^RMI  X/'TS  1 

UICSPD 

104 

FAIRIN=UZ1/UT1PG(ISTAGE) 

UICSPD 

105 

ALFA 1 R=ALF A 1 *PA I / 1 80 . 0 

UICSPD 

lOG 

U1=UZ1/C0S(ALFA1R) 

UICSPD 

lOF 

US 1 =UZ 1 *W I CT AN ( ALFA 1 R ) 

UICSPD 

108 

US1=U(ISTAGE)-US1 

UICSPD 

103 

WU=WS1/UZ1 

UICSPD 

110 

BETA1R=ATAN(WU) 

UICSPD 

111 

BETA1=BETA1R*180.0/'PAI 

UICSPD 

112 

BET1SR(ISTAGEJ=BETA1 

UICSPD 

113 

A I NCSR ( I STAGE ) =BET A 1 -BET INR ( ISTAGE) 

UICSPD 

114 

W1=UZ1/C0S(BETA1R) 

UICSPD 

115 

M1REL=W1/A1 

UICSPD 

IIG 

TREL1=( 1 . 0+G2*MlREL**a)*TSl 

UICSPD 

117 

PREL1=( 1 . 0+G2*NlREL*«2)**Gl*PSl 

UICSPD 

118 

I F ( 1ST AGE . GE . 2 )  DS ( I ST AGE- 1 ) = 1 . 0-Ul AC+ABS ( US2-US1 )  . 0/ 

UICSPD 

US 

$SIGUMS(ISTAGE-1 )yU3 

UICSPD 

120 

I F ( I ST AGE . GE . 2 )  DECS ( I ST AGE- 1) =CQS ( ALFAIR ) /COS ( ALFA2R ) * 

UICSPD 

121 

$(1.12+0.G1*CDS(  ALFA2R )  **2/S  I  GUMS  ( ISTAGE-1 )  *  (  UI CT  AN  ( ALFA2R  )  - 

UICSPD 

122 

$mCTAN(ALFAlR))) 

UICSPD 

123 

IF(ISTAGE.GT.NS)  GO  TO  101 

UICSPD 

124 

C  ROTOR  OUTLET 

UICSPD 

125 

P(2)=PR12D(ISTAGE)*P(1) 

UICSPD 

12G 

TR12=(PR12D( 1STAGE)**( 1 .0/Gl )-l .0)/ETARD( ISTAGE)-H  .0 

UICSPD 

127 

TG(2)=TR12»TG(1) 

UICSPD 

128 

CALL  WICPRP ( 1 . 0. 0 . 0. 0 . 0. TG(2 ) 1 RMIX.CPMIX. GAMMA. Gl. G2. G3) 

UICSPD 

129 

GAMMA2=GAMMA 

UICSPD 

130 

CPM1X2=CPMIX 

UICSPD 

131 

G  AMMAU=  ( GAMMA  1 +GA1IM  A2 )  /2  •  0 

UICSPD 

132 

CPM I XU= ( CPM 1 X 1 +CFM I X2 ) /2 . 0 

UICSPD 

133 

G 1 AU=GAMMAU/ ( G AMMAU- 1.0) 

UICSPD 

134 

G2AU= ( GAMM AU- 1 . 0 ) /2 . 0 

UICSPD 

135 

PR13I=(TG(2)/TG(i )  )**G1AU 

UICSPD 

13G 

DELT=TG(2)-TG(1) 

UICSPD 

137 

US2= ( U ( I ST AGE ) *US 1 +DELT  *CPM I XU*GC*A J ) /UU2 ( I STAGE ) 

UICSPD 

138 

JJ=1 

UICSPD 

139 

UZ2AS=UZ1 

UICSPD 

140 

200  US2UZ2=US2/UZ2AS 

UICSPD 

141 

ALFA2R=ATAN(US2UZ2) 

UICSPD 

142 

ALFA2=ALFA2R*180. 0/PAI 

UICSPD 

143 

BET1SS(ISTAGE)=ALFA2 

UICSPD 

144 

AINCSS( ISTAGE ) =ALFA2-BET1MS( ISTAGE) 

UICSPD 

145 

W52=UU2(ISTAGE)-US2 

UICSPD 

i4B 

WS2U22=WS2/UZ2AS 

UICSPD 

147 

BETA2R=ATAN ( WS2UZ2 ) 

UICSPD 

148 

BETA2=BETA2R* 180 . 0/PA I 

UICSPD 

149 

EET2SR ( I STAGE ) =EETA2 

UICSPD 

150 

ADEUSRC ISTAGE)*BETA2-BET2MR( ISTAGE) 

UICSPD 

151 

U2=UZ2AS/C0S ( ALF A2R ) 

UICSPD 

152 

W2=UZ2AS/CC5 ( BET A2R ) 

UICSPD 

153 

TS2=TG  C  2 ) -U2**2/ ( 2 . 0*CPMIX2*GC*AJ) 

UICSPD 

154 

A2=SQRT  C  GAMMA2*RM I X*TS2*GC ) 

UICSPD 

155 

M2=U2/A2 

UICSPD 

15G 

PS2=P ( 2 ) / ( 1 . 0+G2*M2**2 ) **G 1 

UICSPD 

157 

RH0GS2=PS2/RM I X/TS2 

UICSPD 

158 

N2REL=W2/A2 

UICSPD 

159 

TREL2=  ( 1 . 0+G2*M2REL*»f. )  *TS2 

UICSPD 

160 

PREL2= i 1 . 0  +M2REL**2 ) **  G 1 *PS2 

UICSPD 

161 

UZ2CL=f MASS/(RH0GS2*AREAS( ISTAGE) ) 

UICSPD 

1G2 

EPS=1.0E-G 

UICSPD 

1G3 

IFCJJ.EO.E)  GO  TO  201 

UICSPD 

1G4 

IF(JJ.GT.2)  GO  TO  202 

UICSPD 

1G5 

X1=UZ2AS 

UICSPD 

1G6 

Y1=UZ2CL 

UICSPD 

1G7 

UZ2AS=UZ2CL 

UICSPD 

168 

JJ=JJ+1 

UICSPD 

169 

GO  TO  200 

UICSPD 

170 

201  X2-UZ2AS 

UICSPD 

171 

V2=UZ2CL 

UICSPD 

172 

UZ2  AS=14 1 CNEM  (  X 1 .  Y 1 .  X2 .  Y2  ) 

UICSPD 

173 
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WICSPD 

174 

GO  TO  ;:qo 

UICSPD 

Irb 

202  IF((Ar3CiJ22nS-UZ2CL)/y22ftS).LT.EPS)  GO  TO  300 

UICSFD 

17B 

X1^X2 

WICSPD 

iTF 

Y1^:Y2 

UICSPD 

173 

X2-yZ2ftS 

UICSPD 

17S 

V2-022CL 

WICSPD 

180 

U2L’AS--  U  I  Cl  :E!T  ( XI .  Y1  .  X2.  Y2) 

UICSPD 

181 

JJ=JJvl 

WICSPD 

182 

GO  TO  200 

WICSPD 

ico 

300  022=02201. 

UICSPD 

164 

FAIOU  r=022/iJTIPG(  ISTAGE) 

WICSPD 

165 

DK(lSTAGE)=1.0-W2/Ul+Ai;E(HSl-WS2)/2.0/SIGUMR(ISTftGE)/Ml 

UICSPD 

IBG 

DEaR(ISTAGE)=CQS(EETArR) /COS ( BETA 1 R ) * 

UICSPD 

187 

S(1.12+0.E].»C0Si:BEVA1R)-»2/SIGUMR(ISTAGE)* 

WICSPD 

18S 

S 1  U 1 C  T  AM  C  EE  f  i )  1? )  -  W I CTAI 1 '  EETA2R ) )  ) 

WICSPD 

183 

PRI:ELI-^' :.Ov-r2AO:-U(ISTAGE)«i‘2/(GAmAO*Rt1IX*TRELi«GC) 

UICSPD 

ISO 

^-•i;  1. UUMt.  ■  GTAGE)/Ui.  iSTAGE)  .0)  )**Gir,0 

UICSPD 

191 

PLOSSR= PM  >  2 D  ( I  S'l :  -iGE  .t  / TG (  2  )  /TG ( 1) )  **G  1  AO«PRRELI 

WICSPD 

192 

IF i; PRREL I .  I.T .  PL0S5R )  FT.;<ELi=l .  0 

WICSPD 

1S3 

O:  iEGR  ( I  STAGE  :i  =  ( PRREL  I-PL03SR )  /  ( 1 . 0-PS 1  /PREL  i ) 

UICSPD 

194 

C  STATOR  OUTLET 

WICSPD 

1S5 

PLOSCS - PR 1 33 ( I stage ) /RRi 2D ( I STAGE ) 

WICSPD 

1S6 

PR 1 3= (TG ( 2 ) ^TG ( 1 , ) G1 AO« PLOSSR*PLOSSS/PRRELI 

WICSPD 

1S7 

OMEGS ( .T STAC. L)  =  ( 1 . 0-PUOSSS )/ ( 1 . 0-PS2/P ( 2 ) ) 

WICSPD 

193 

ETASG=i.PRi3^«(1.0/GiAM)-1.0)/(TR12-1.0) 

WICSPD 

199 

P;3)=PRi2-p.;u 

UICSPD 

200 

Tb(3)=TG(a) 

UICSPD 

201 

TD(ISTAGE'J=TC''l) 

WICSPD 

202 

C  PRIMTOUT  OF  STAGE  PERFORMANCE 

WICSPD 

203 

IFCIONIT.Ml.EJ  GC  to  S53 

W I  CEPE 

204 

T3C1)=TG(1;-.CFT 

WICSPD 

205 

TG(2>=TL(2)«CFT 

WICSPD 

20S 

P(l)=P;l)i;CFP 

WICSPD 

207 

P(2)=P’.2j-CFP 

WICSPD 

208 

TS1=TS1*CFT 

UICSPD 

209 

TS2=TS2»CFT 

WICSPD 

210 

r'Sl=PSliK,FP 

UICSPD 

211 

PG2=PS2-CFP 

WICSPD 

212 

RHOGGl-rriOCSl*CFD 

WICSPD 

213 

RKDCS2^mGHGC52*CFU 

UICSPD 

214 

0ZJ.=0M1-::CF0 

WICSPD 

215 

0Z2=0Z2-~-CF0 

WICSPD 

2.’B 

0i=01*CF0 

WICSPD 

217 

02^02 ’-CFO 

WICSPD 

2.1 8 

CFO 

WICSPD 

219 

L2=l-I2-CF0 

WICSPD 

2;.;o 

OS.l--OS.'.«CFO 

WICSPD 

221 

usl:=os2-ci^  u 

WICSPD 

222 

WICSPD 

223 

WS2=LIS2wCF0 

WICSPD 

£24 

0 ( 1 STAGE ) =U ( ISTACE ) *CFO 

WICSPD 

2';o 

UU2(  .\STAGE)=IJU2(  ISTAGE)*CFU 

WICSPD 

225 

TRELi=TRELi«CFT 

WICSPD 

227 

PRcLi=PRELi  -rFP 

WICSPD 

228 

TREL2= TPEL2  CFT 

WICSPD 

229 

PR£L2^-PRELc-;CFP 

WICSPD 

£20 

APEAC IGTACEi=AREA( ISTAGE)»CFA 

WICSPD 

2ol 

AREAS  C  '  STAC,! ; )  =fiRF AS  C  i  STAGE )  *CFA 

WICSPD 

222 

RAD  I  i  a  STAC.; )  =RAIJ  1 1  ( I S  f  AGE  )  !»CFL 

WICSPD 

£23 

RADi2( ISTAGE)=RADI2( IETAGE)*CFL 

WICSPD 

234 

8S3  CDtTfIMUE 

UICSPD 

225 

WRITECG. 1000) 

WICSPD 

22  S 

WRITEcCt 1100 '  ISTACE 

WICSPD 

237 

1100  l-OC-'i  lAT'.  iHO.  ?TAGE=?'.I2f^  *****^) 

WICSPD 

23S 

RRITECC.UOC ) 

WICSPD 

229 

1101  rORMATC  IHO,  IGX, -TOTAL-.  BX,  KTOTAL^t  7Xt?!STATIW.  TXtXSTftTICPtTXt 

WICSPD 

£40 

Si^STATi ?. rx.  ATEMP^, FX, i^PRESSURE?:. 7X. !<TEt1PfS. 7X.  ;^PRESSUREi<,BX. 

WICSPD 
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S^iDENSli  TP) 

WICSPD 

2-2 

L'.MITEi.G.  lllu)  TG‘  1).P(.’.).TS1.PS1.RH0CS1 

WICSPD 
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245 


1110 

FORMAT!  1  HO,  IX.  ^‘ROTOR  INLETs^,  1X.S(F10.3.3X) ) 

WICSPD 

244 

URITE(5.11S0)  TG(a).P(Sl.TSa.PS2,RH0CSS 

UICSPD 

245 

iiao 

FORMATCIH  ,1X,,<R0T0R  0UTLET,<,S(F10.3,3X)) 

UICSPD 

246 

URITECG,  nil) 

UICSPD 

247 

nil 

FORMATCIHO.  ISX.XAXlALX.GX.xABSOLUTEX.SX.XRELATiyE^^.SX.J^TAN  COMPa*. 

UICSPD 

248 

$5X,?!TAN  COMPpc,/.  15X, i«<UEL0CITY!«.SX,»‘UEL0CITYie,5X,XUEL0CITV^,4X, 

UICSPD 

249 

$?:OF  ABS  UELj«.3X,»!0F  REL  UEL^<) 

UICSPD 

250 

URITE(6.n30)  UZl.Ul.Ul.USl.USl 

UICSPD 

251 

1130 

FORMAT!  IHO,  IX.  ^iROTOR  INLETi*,  1X.5!F10.5,3X) ) 

UICSPD 

252 

URITE!6.n40}  UZS. U2.U2. US2.US8 

UICSPD 

253 

1140 

F0RMAT!1H  .IX.j^ROTOR  OUTLET»i,S!F10.S,3X)) 

UICSPD 

254 

WRITE!B,n41) 

UICSPD 

255 

1141 

FORMAT!  lH0.15X,;<ROTOR!<,7X.s<ABS  MACHj«,5X.XREL  MACH?!, 5X, XREL  TOTALi^, 

UICSPD 

256 

*4X,  J!REL  TOTAL?!.  /.  16X.  ?!SPEED?!.  8X. ?!NUMBER?‘, 7X, J'NUMBER?*,  7X.  ?!TEMPX, 8X, 

UICSPD 

257 

*s<PRESSURE?!) 

UICSPD 

258 

WRITE!B,n50)  U!ISTAGE),M1.M1REL,TREL1,PREL1 

UICSPD 

259 

1150 

FORMAT!  IHO.  IX,  XROTOR  INLET?!,  1X,5!F10.3, 3X) ) 

UICSPD 

260 

UR I TE ! 6 . 11 50 )  UU2 ! I ST AGE ) . M2 . M2REL, TREL2, PREL2 

UICSPD 

261 

1150 

F0RMAT!1H  .1X,?!R0T0R  OUTLET?!, S!F10.3,3X)) 

UICSPD 

262 

I =I STAGE 

UICSPD 

263 

IF!lSTAGE.Ea.l)  1=8 

UICSPD 

264 

URITE!5. 1181) 

UICSPD 

265 

1151 

FORMAT!  IHO.  14X,?: ABS  FLQUX,5X.?!REL  FL0M?!,4X,?!STREAMTUBE?!,18X, 

UICSPD 

266 

$?!FLOU?!.  /.  IGX.  ?!ANGLE?!. 8X.  ?!ANGLE?!. 8X.?!AREA?!,  9X. ?!RADIUSX,  5X, 

UICSPD 

267 

$?!COEFFICIENT?!) 

UICSPD 

268 

WRITE! 6. 1170)  BET2SS! I-l ) , BETISR! ISTAGE), AREA! ISTAGE) , 

UICSPD 

269 

$RADI 1 ! ISTAGE) , FAIR IN 

UICSPD 

270 

iiro 

FORMAT!  IHO,  1X,;!R0T0R  INLET?!,  1X,S!F10.5.3X)) 

UICSPD 

271 

URITE!G.n80)  BET1SS!ISTAGE),BET2SR!ISTAGE),AREAS!ISTAGE), 

UICSPD 

272 

$RAD I2!1STAGE).FAI0UT 

UICSPD 

273 

1180 

FQRMAT!1H  ,1X.;!RQTQR  aUTLET?!,5!F10.5.3X)) 

UICSPD 

274 

WRITE!S. 1190)  PR13. ETASG, PR12D! ISTAGE) . ETARD! ISTAGE) , TR12 

UICSPD 

275 

1190 

FORMAT!  IHO,  IX,  ISTAGE  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT=?!,F10.S, 

UICSPD 

276 

$/,2X,?!STAGE  ADIABATIC  EFFICIENCY  AT  DESIGN  P01NT=?!,F10.5,/,2X, 

UICSPD 

277 

$?!RQT0R  total  pressure  ratio  at  DESIGN  P01NT=X,F10.5,7,2X, 

UICSPD 

278 

$?!R0T0R  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT=?!,F10.5,/,2X, 

UICSPD 

279 

$?!R0T0R  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT=X,F10.5) 

UICSPD 

280 

IF!IUNIT.NE.2)  GO  TO  864 

UICSPD 

281 

TG!1)=TG!1)/CFT 

UICSPD 

282 

TG!2)=TG!2)/CFT 

UICSPD 

283 

P!1)=P!1)/CFP 

UICSPD 

284 

P!2)=P!2)/CFP 

UICSPD 

2E5 

TS1=TS1/CFT 

UICSPD 

286 

TS8=TS2/CFT 

UICSPD 

287 

PS1=PS1/CFP 

UICSPD 

288 

P52=PS2/CFP 

UICSPD 

269 

RHOGSl=RHOGSlxCFD 

UICSPD 

290 

RH0GS2=RH0GS2/CFD 

UICSPD 

291 

UZ1=UZ1/CFU 

UICSPD 

292 

UZ2=UZ2/CFU 

UICSPD 

293 

U1=U1-'CFU 

UICSPD 

294 

U2=U2/CFU 

UICSPD 

295 

W1=W1/CFU 

UICSPD 

296 

W2=W2/CFU 

UICSPD 

297 

US1=US1/CFU 

UICSPD 

298 

US8=US2/CFU 

UICSPD 

299 

WS1=WS1/CFU 

UICSPD 

300 

HS2=US2/CFU 

UICSPD 

301 

U ! I STAGE ) =U ! ISTAGE ) 7CFU 

UICSPD 

302 

UU2 ! ISTAGE ) =UU2 ! I STAGE ) ^CFU 

UICSPD 

303 

TREL1=TREL1^CFT 

UICSPD 

304 

PREL1=PREL1/CFP 

UICSPD 

305 

TREL2=TREL2.'CFT 

UICSPD 

306 

PREL2=PREL2.'CFP 

UICSPD 

307 

AREA! ISTAGE )=AREA! ISTAGE)/CFA 

UICSPD 

308 

AREAS! I STAGE )= ARE AS! ISTAGEI/CFA 

UICSPD 

309 

RADI2!  ISTACE)=RADI2!  ISTAGE)/'CFL 

UICSPD 

310 

864 

CONTINUE 

UICSPD 

311 

C  REPEAT 

UICSPD 

312 

TG!1)=TG!3) 

UICSPD 

313 
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P(1)=P(3) 

WICSPD 

314 

I F ( 1ST AGE . EO . NS )  ADEUSS ( NS ) =BET2SS( NS ) -BET2MS ( NS ) 

WICSPD 

315 

1 STAGE- i STAC EtI 

UICSFD 

31B 

IFdSTAGtMlU.tlSl)  GO  TO  101 

WICSPD 

317 

GO  TO  100 

WICSPD 

318 

C  OUERkLL  PERFORilftMCE  PT  DESIGN  POINT 

WICSPD 

319 

101 

UUALPR=P(3)^-P0IN 

WICSPD 

320 

DUA1.TR=TCC3)/'T0IN 

WICSPD 

321 

G  AMMAU = ( GAMA  I  i  Fi-GAMMA  )  /  2 . 0 

WICSPD 

322 

1 AU-C  AMNAU/  ( G  AMI  lAU- 1 . 0 ) 

WICSPD 

323 

OUALEF=(aUA2PR»»(l.O/GlAU)-1.0)^(OUALTR-1.0) 

WICSPD 

324 

OUALDT=TG(3j-TOIN 

WICSPD 

325 

C  PRINTOUT  OF  OUERPLL  PERFORMANCE  AT  DESIGN  POINi" 

WICSPD 

326 

IF(IUNIT.NE.2l  GO  TO  8G5 

WICSPD 

327 

T0IN=T01N-C7T 

WICSPD 

328 

P0IN=P0IN-CFP 

WICSPD 

329 

GMA3S=CMASS-CFM 

WICSPD 

330 

OUALDT=OUALDT*CFT 

WICSPD 

331 

DO  422  1=1. Ho 

WICSPD 

332 

Taa)=TD(I)"CFT 

WICSPD 

333 

422 

CONTINUE 

WIC3PD 

334 

8SS 

CONTINUE 

WICSPD 

335 

URITE(G.IOOO) 

WICSPD 

33S 

l-!RITE(6.421  J 

WICSPD 

337 

421 

FCRNAT(lH0.^«-”»5^»***»  OUERALL  PERFORMANCE  AT  DESIGN  POINT  **** 

WICSPD 

338 

WICSPD 

339 

I'.JlVECGrCaS)  TOIN 

WICSPD 

340 

425 

FORllATdHO.  1X.;;CC)MPRESS0R  INLET  TOTAL  TEMPERATURE=;i,F8.3) 

WICSPD 

341 

URITE':G.42G1  POIII 

WICSPD 

342 

42G 

FOPNATaHO.JX, ^COMPRESSOR  INLET  TOTAL  PRESSURE=P.F10.2) 

WICSPD 

343 

1  in !TE (6.427)  CMA3S 

WICSPD 

344 

427 

FORI'IAT(lHO,lX,;iC'jRnECTED  MASS  FLOW  RATE=!i.FG.3) 

WICSPD 

345 

Wn):TE(G.423,.  OUALPfs' 

WICSPD 

24S 

429 

(•Ok’IIAi'dHO.iX.^iCVJEPALL  TOTAL  PRESSURE  RATI0=;^.FB.4) 

WICSPD 

347 

WniTE(B.430'  OUALTR 

WICSPD 

343 

430 

i-ORiiHTdHO.lX.fiCOERALL  TOTAL  TEMPERATURE  RAT!0=s«.FB.4) 

WICSPD 

349 

HPITE(G.431)  OUAl-EF 

WICSPD 

350 

431 

FORMuTdHO.lX.POUERALL  ADIABATIC  EFFICIENCy=P.FB.4) 

WICSPD 

351 

t;,?iTL< 6.432)  OUAI.DT 

WICSPD 

332 

432 

FQRMAVdHO.lX.fsa.'ERALL  TEMPERATURE  RISE=;s.F8.3) 

WICSPD 

3=3 

FRITEIG. 1621) 

WICSPD 

354 

1B21 

I  ORMATdHO.  i4X.?l  .i.5;<.R2A,5X,*!3?:.5X.;«4?!.5X,;s5ss.BX.^B;«.4X.i«IGUsS) 

WICSPD 

355 

l.RITElB.  1710)  (EET1SR(I),I=1,NS) 

WICSPD 

35E 

IT’IO 

FGRMATdH  .  iX.  XI'IT  1SR(  I  )?:.2X.G(F5.2.  IX) ) 

WICSPD 

357 

nndF ( 6 . 1720 )  ( ECT2SR(  X ) .  1= 1 . NS ) 

WICSPD 

358 

1720 

f  ORilHT  dH  .  i:;.;^EcT2Sr:(I)^,2X.B(F5.2.1X)) 

WICSPD 

359 

tJ2ITE(G.1730)  (AlliCSR(I).I=l.NS) 

WICSPD 

3S0 

1730 

[  GRMATC IH  . IX. ^AINC5R( I )^.2X,B(F5.2. IX) ) 

WICSPD 

2B1 

W;?XTE(B..l740)  (AlC,USR(I).I=l.l'iS) 

WICSPD 

362 

1740 

l  ORMAT  f  liT  .  IX.  ;iADEUSR(  I  )A,2X,G(Fo.2.  IX) ) 

WICSPD 

363 

H:;’rrE(G.1760)  (BETlSSa)d=l.NS) 

WICSPD 

364 

17G0 

,  CRMATdH  ,  1X.AEET1SS(I)J^.2X.G(F5.2.1X)) 

WICSPD 

3G5 

1 12  X  f  E  ( G .  1 77  0 )  ( EE  T2SS  d  ) .  I = 1 .  No  1  • 

WICSPD 

36G 

1770 

1  ORilATdH  .  IX.  AEt:T25S(I)^.2X,7(F5.2.1X)) 

WICSPD 

3B7 

nPITE(G.1760)  (A; NCSS(I).I=1.NS) 

WICSPD 

3S8 

17C0 

i  URMAT(  IH  .  iX.  ;iAXNCSS(  I  )X,2X.6(F5.2.  IX) ) 

WICSPD 

3ES 

HRITEXG. 1730)  (AOEUSSd ). I=1.NS) 

MICEPE 

570 

1790 

FORMATC  IH  .  IX,  f'ADEUSSi  i  )-,2X.B(F5.2,  IX) ) 

WICSPD 

371 

HRiT£(G, 1731)  (TiK T ) , 1=1 ,M5) 

WICSPD 

372 

1731 

[•  Ur:i IHTCIH  .  IX.  XU  ( I  )^, BX.G(F5. 1.  iX) ) 

WICSPD 

373 

ilTfEXG,  1793)  (0/,l'GS(I).  I=1.NS) 

WICSPD 

374 

1793 

l  ORMATC  IH  ,  IX,  XOMEGSd  )X.3X,6(F5.3.  IX?  ) 

WICSPD 

375 

1IRITE(G,1794)  (CMF.GRd  ).  I  =  1.NS) 

WICSPD 

37G 

1734 

FCr.'MAVdH  ,  DCxOiTEGRd  )X,3X,G(F5.3,1X)) 

WICSPD 

377 

IFdUHIT.HE.2)  GO  TO  GEG 

WICSPD 

378 

•'0IN=T0iN/GKT 

WICSPD 

379 

POiN=P0INxCFP 

WICSPD 

3E0 

CMA33=CMAS3/CFM 

WICSPD 

381 

OUALDT=OiJALDT/CFT 

WICSPD 

3S2 

DO  423  1=1. H3 

WICSPD 

3C3 
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TD(I)=TD(I)«CFT 

WICSPD 

3E4 

<^^3  CONTIMUE 

WIC'PD 

3C5 

SBG  CONTINUE 

WICSPD 

SfG 

RLTURM 

WICSPD 

387 

END 

WICSPD 

3S8 

i 


I 


APPENDIX  5 

PRINTOUT  OF  TEST  CASE 
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•••«»««••••«*••••>»•«••••••••  INPUT  DftTA  ***'♦**•****************************»** 


NS  (NUMBER  Oh*  STftGE)=  G 
UNIT=ENGLISH  UNIT 
1PERFM=2 

PERFORMANCE  AT  MEAN 


1 

2 

3 

4 

5 

6 

IGU 

RRHUB(I) 

.770 

1.035 

1.232 

1.378 

1.489 

1.572 

RC(I) 

.G05 

.554 

.534 

.510 

.483 

.456 

RBLADE(I) 

le.oo 

20.00 

20.00 

25.00 

28.00 

32.00 

STAGER(I) 

34.25 

29.96 

27.37 

28.30 

29.17 

29.75 

STAGES! I) 

23.  G7 

25.62 

26.94 

28.41 

29.82 

38.99 

SRHUB(I) 

.923 

1.145 

1.311 

1.445 

1.538 

1.580 

.774 

SCd) 

.442 

.412 

.412 

.412 

.412 

.412 

SBLADE(I) 

14.00 

26.  OU 

28.00 

32.00 

36.00 

30.00 

SIGUMR(I) 

1.052 

1.120 

1.037 

1.182 

1.211 

1.283 

SIGUMSd) 

.640 

1.061 

1.093 

1.199 

1.311 

1.087 

GAPRd) 

.12S 

.125 

.125 

.125 

.125 

.125 

GAPSd) 

.125 

.125 

.125 

.125 

.125 

.125 

RRTIPd) 

2.16 

2. 1C 

2.16 

2.16 

2.16 

2.16 

SRTIPd) 

2.1G 

2.16 

2.16 

2.16 

2.16 

2.16 

2.16 

RTd) 

2.149 

2.151 

2.148 

2.149 

2.149 

2.147 

RMd) 

1.426 

1.575 

1.642 

1.722 

1.789 

1.836 

RHCI) 

.781 

1.056 

1.252 

1.411 

1.533 

1.621 

STCI) 

2.147 

2.138 

2.127 

2.123 

2.118 

2.100 

SMd) 

1.502 

1.573 

1.637 

1.712 

1.766 

1.784 

SHd) 

.934 

1.152 

1.318 

1.453 

1.548 

1.592 

BLOCK! I) 

.983 

.976 

.967 

.949 

.323 

.902 

BLOCKS!!) 

.978 

.966 

.945 

.923 

.908 

.863 

BETlMRd) 

42.72 

42.74 

41.62 

42.85 

44.00 

45.07 

BETEMRd) 

25.79 

17.17 

13.12 

13.76 

14.33 

14.43 

BETIMS! I ) 

35.15 

40.11 

43. 3S 

45.00 

46.31 

48.71 

0 

EET2MS! I ) 

12.19 

11.13 

10.51 

11.81 

13.32 

29.28 

21.99 

PRlEDd) 

1.154 

1.165 

1.221 

1.237 

1.230 

1.215 

PR13Dd) 

1.152 

1.159 

1.213 

1.228 

1.221 

1.208 

ETARDd) 

.566 

.966 

.968 

.965 

.962 

.954 
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FNF(FRflCTIOfH  OF  DESIGN  CORRECTED  SPEED)®!. 000 


XDINdNITIPL  WATER  CONTENT  OF  SHALL  DROPLET)®  0 
XDOIN( INITIAL  WATER  CONTENT  OF  LARGE  DROPLET)®  0 
RHUMID( INITIAL  RELATIUE  HUMIDITY)®  .00  PER  CENT 
XCH4( INITIAL  METHANE  CONTENT)®  0 

TOG (COMPRESSOR  INLET  TOTAL  TEMPRATURE  OF  GAS)®  518.70 
TOWCCOMPRESSOR  INLET  TEMPERATURE  OF  DROPLRET)®  513.70 
POCCOMPRESSOR  INLET  TOTAL  PRESSURE)®  211G.80 

DINCINITIIL  DROPLET  DIAMETER  OF  SMALL  DROPLET)®  20.0 
DDIN( INITIAL  DROPLET  DIAMETER  OF  LARGE  DROPLET)®  SOO.O 

FNDCDESIGN  ROTATIONAL  SPEED)®51120.0 

D5MA3S(DESIGN  MASS  FLOW  RATE)®  .3755 

COMPRESSOR  INLET  TA7AL  TEMPERATURE (GAS  PHASE)  518.70 

COMPRESSOR  INLET  TOTAL  PRESSURE®  211B.80 

PREB( PERCENT  OF  WATER  THAT  REBOUND  AFTER  IMPINGE  MENT)®  50.0  PERCENT 
ROTOR  SPEED=51 120.0  RPM 

CORRECTED  ROTOR  SPEED®  51120.0  RPM(  lOO.OPER  CENT  OF  DESIGN  CORRECTED  SPEED) 
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DESIGN  POINT  INFORMATION 
*****  COMPRESSOR  INLET  ***** 


TOTAL  TEMPERATURE  AT  COMPRESSOR  INLET*  518.70000 
TOTAL  PRESSURE  AT  COMPRESSOR  INLET*  8116.80 
STATIC  TEMPERATURE  AT  COMPRESSOR  INLET*  496.88109 
STATIC  PRESSURE  AT  COMPRESSOR  INLET*  1813.73 
STATIC  DENSITY  AT  COMPRESSOR  INLET*  .068S0 

ACOUSTIC  SPEED  AT  COMPRESSOR  INLET*10S8.8S914 
AXIAL  UELOCITY  AT  COMPRESSOR  INLET*  518.81873 
MACH  NUMBER  AT  COMPRESSOR  INLET*  .47500 
STREAMTUBE  AREA  AT  COMPRESSOR  IfHLET*  .01057 
FLOW  COEFFICIENT  AT  COMPRESSOR  INLET*  .53817 
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***  DESIGN  POINT  INFOPNftTION 


*****  STAGE=  1  ***** 

TOTAL  TOTAL  STATIC  STATIC  STATIC 

TEMP  PRESSURE  TEMP  PRESSURE  DENSITY 

ROTOR  INLET  510.700  ailB.300  492.G37  17S7.57S  .067 

ROTOR  OUTLET  541.148  2442.787  508.269  1961.576  .072 

AXIAL  ABSOLUTE  RELATIUE  TAN  COMP  TAN  COMP 

UELOCITY  UELOCITY  UELOCITY  OF  ABS  I'EL  OF  REL  UEL 

ROTOR  INLET  538.76531  S59. 39838  725.32398  150.52734  485.62003 

ROTOR  OUTLET  525.97105  628.55682  618.75550  344.14638  325.90306 

ROTOR  ABS  MACH  REL  MACH  REL  TOTAL  REL  TOTAL 

SPEED  NUMBER  NUMBER  TEMP  PRESSURE 

ROTOR  INLET  636.147  .514  .667  536.454  2381.210 

ROTOR  OUTLET  670.051  .569  .560  540.141  5091.790 

ABS  FLOW  REL  FLOW  STREAMTUBE  FLOW 

ANGLE  ANGLE  AREA  RADIUS  COEFFICIENT 

ROTOR  INLET  15.61000  42.03015  .01036  1.42600  .55886 

ROTOR  OUTLET  33.19714  31.78325  .00987  1.50E00  .54559 

STAGE  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT*  1.15200 

STAGE  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .95383 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT*  1.15400 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .96600 

ROTOR  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT*  1.04323 


••••••«»•••••••  design  point  infornation  ************  *** 

•••**  STACE=  2  ***** 

TOTAL  TOTAL  STATIC  STATIC  STATIC 

TEMP  PRESSURE  TEMP  PRESSURE  DENSITY 

ROTOR  INLET  541.148  2438.554  511.384  2008.852  .074 

ROTOR  OUTLET  566.141  2840. SIS  522.316  2142.394  .077 

AXIAL  ABSOLUTE  RELATIUE  TAN  COMP  TAN  COMP 

UELOCITV  UELOCITV  UELOCITY  OF  ABS  UEL  OF  REL  UEL 

ROTOR  INLET  543.21239  S91. 88727  730.68951  220.67086  481.94632 

ROTOR  OUTLET  581.16447  725.94045  633.44211  435.01464  266.71034 

ROTOR  ABS  MACH  REL  MACH  REL  TOTAL  REL  TOTAL 

SPEED  NUMBER  NUMBER  TEMP  PRESSURE 

ROTOR  INLET  702.617  .534  .639  556.431  2688.136 

ROTOR  OUTLET  701.725  .648  .571  556.331  5751.007 

ABS  FLOW  REL  FLOW  STREAMTUBE  FLOW 

ANGLE  ANGLE  AREA  RADIUS  COEFFICIENT 

ROTOR  INLET  21.89000  41.^765  .00930  1.57500  .56970 

ROTOR  OUTLET  36.81569  24.65154  .00841  1.57300  .60285 

STAGE  TOTAL  PRESSURE  RAHO  AT  DESIGN  P01NT=  1.15900 

STAGE  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .93231 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT*  1.16500 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .96600 

ROTOR  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT*  1.04618 
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•••••«*•«••••••  DESIGN  POINT  INFORMATION  ************  *** 


*****  STAGE=  3  ***** 

TOTAL 

TEMP 

ROTOR  INLET  566.141 
ROTOR  OUTLET  600.463 

AXIAL 

UELOCITY 

ROTOR  INLET  574.81563 
ROTOR  OUTLET  614.43880 

ROTOR 

SPEED 

ROTOR  INLET  73E.50G 
ROTOR  OUTLET  730.376 

ABS  FLOU 
ANGLE 

ROTOR  INLET  19.09000 
ROTOR  OUTLET  38.13933 


TOTAL  STATIC 

PRESSURE  TEMP 

3836.384  535.363 

3450.393  549.786 

ABSOLUTE  RELATIUE 

UELOCITY  UELOCITY 

608.36663  784.39006 

781.11343  663.59507 

ABS  MACH  REL  MACH 
NUMBER  NUMBER 

.536  .693 

.630  .577 


STATIC  STATIC 

PRESSURE  DENSITY 

3333.868  .081 

3533.049  .086 

TAN  COMP  TAN  COMP 

OF  ABS  LEL  OF  REL  UEL 

193.93541  533.57089 

4S3.38S50  347.98637 

REL  TOTAL  REL  TOTAL 
TEMP  PRESSURE 

586.533  3199.070 

586.363  6939.751 


REL  FLOW  STREAMTUBE  FLOW 

ANGLE  AREA  RADIUS  COEFFICIENT 

43.86893  .00803  1.64300  .59636 

31.97990  .00708  1.63700  .63736 


STAGE  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT=  1.31300 

STAGE  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .33464 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT*  1.33100 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .36800 

ROTOR  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT*  1.06063 
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DESIGM  point  irrORMftTIOH 


STAGES  4  ***** 


TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

600.462 

639.381 

3428.282 

4240.785 

569.069 

585.841 

2839.383 

3118.959 

.094 

.100 

AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN  COMP 

OF  ABS  UEL 

TAN  COMP 

OF  REL  UEL 

ROTOR 

ROTOR 

INLET  580.04590 
OUTLET  619.63965 

614.69778 

803.61317 

809.54747 

668.93304 

203.47020 

511.70446 

564.72459 

252.02926 

ROTOR 

SPEED 

ABS  MACH 
NUMKR 

REL  MACH 
NUMBER 

REL  TOTAL 
TEMP 

REL  TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

768. 195 
763.734 

.526 

.678 

.692 

.564 

623.519 
622. S51 

3912.431 

8231.914 

AB5  FLOU 
ANGLE 

REL  FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 

ROTOR 

INLET 

19.33000 

44.23321 

.00692 

1.72200 

.60169 

ROTOR  OUTLET  39.55025  22.13332  .00607  1.71200  .64276 

STAGE  TOTAL  PRESSURE  RATIO  AT  l^SIGN  POIHT=  1.22800 

STAGE  ADIAEATIC  EFFICIENCY  AT  DESIGN  POINT*  .93002 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT=  1.23700 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .95500 

ROTOR  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT*  1.06481 


***************  DESIGN  POINT  INFORMATION 
<!•«*»*  STftGE=  5  **»»* 


••• 


TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

639.381 

679.732 

4209.930 

5178.214 

606.962 

625.197 

3506.755 

3S57.244 

.108 

.116 

AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

REL AT I UE 
UELOCITY 

TAN  COMP 

OF  ABS  UEL 

TAN  COMP 

OF  REL  UEL 

ROTOR 

ROTOR 

INLET 

CUTLET 

586.84149 

617.08368 

625.22167 

811.98444 

826.78513 

669.65381 

215.68308 

527.75042 

582.40082 

260.07304 

ROTOR 

SPEED 

ABS  MACH 
NUMBER 

REL  MACH 
NUMBER 

REL  TOTAL 
TEMP 

REL  TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

738.084 

787.823 

.518 

.663 

.685 

.547 

663.653 

662.302 

4798.526 

9691.778 

ABS  FLOW 
ANGLE 

REL  FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOU 

COEFFICIENT 

ROTOR 

ROTOR 

INLET 

OUTLET 

20.18000 

40.53794 

44.78240 

22.85308 

.00591 

.00526 

1.78300 
i . 76600 

.60873 

.64011 

STAGE  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT=  I.S2100 

STAGE  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT=  .32580 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT=  1.23000 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT®  .35200 

ROTOR  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT®  1.0E311 


1 

I 

I 


1 

-i 


STAGE= 

6  •»•*» 

TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

ItSLET 

OUTLET 

C79.732 
720. 2S9 

5140.325 

6245.495 

646.933 

665.989 

4318.954 
4736. £91 

.125 

.133 

AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN  COMP 

OF  ABS  UEL 

TAN  COMP 

OF  REL  UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

587.19574 

603.39773 

629.60666 

811.09676 

833.74045 

654.61329 

227.16C90 

542.02Z20 

591.88199 

253.83017 

ROTOR 

SPEED 

ABS  MACH 
NUMBER 

REL  MACH 
NUMBER 

REL  TOTAL 
TEMP 

REL  TO'’AL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

819.051 

795.853 

.506 

.642 

.669 

.518 

704.449 

701.350 

5829.034 

10970.182 

ABS  FLQU 
ANGLE 

REL  FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 

ROTOR 

ROTOR 

INLET 

OUTLET 

21.15000 

41.93288 

45.22772 

22.81494 

.00511 

.00467 

1.83500 

1.78400 

.60910 

.62591 

STAGE 

STAGE 

ROTOR 

ROTOR 

ROTOR 

TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT=  1.; 
ADIABATIC  EFFICIENCY  AT  DESIGN  POINT* 

TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT*  1. 
ADIABATIC  EFFICIENCY  AT  DESIGN  POINT* 

TOTAL  TENPERATURE  RATIO  AT  DESIGN  POINT* 

20800 

92365 

21500 

33400 

1.05962 
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•«»••*••••••«••  design  point  information  ************  *** 

**********  O'JERALL  PERFORMANCE  AT  DESIGN  POINT  ****  ****** 

COMPRESSOR  INLET  TOTAL  TEMPERATURE=  518.70 
COMPRESSOR  INLET  TOTAL  PRESSURE=  RUB. 80 
CORRECTED  MASS  FLOW  RATE=  3. IBS 
CUERALL  TOTAL  PRESSURE  RAT 10=2. 9334 
OUERALL  TOTAL  TEMPERATURE  RATI0=1.388G 
OUERALL  ADIABATIC  EFFICIENCY=  .9223 
OUERALL  TEMPERATURE  RISE=  201.559 

1  2  3  4  3  B  IGU 

BETlSRCn  42.03  41.27  42.87  44.23  44.78  45.23 

EETSSRCI)  31.78  24. G5  21.98  22.13  22.85  22.81 

AINCSR(l)  -.BS  -1.47  1.25  1.38  .78  .IB 

ADEUSR(I)  5.39  7.48  8.8B  8.37  8.52  8.38 

BETISS(I)  33.20  3S.82  38.13  39.55  40.54  41.93 

EET2SS(I)  21.89  19.09  19.33  20.18  21.15  34. 8B  15.B1 

AINCSS(I)  -1.95  -3.29  -5.23  -5.45  -5.77  -B.78 

ADEUSSd)  9.70  7.96  8.82  8.37  7.83  5.58 

TDd)  518.7  541.1  5BB.1  BOO. 5  B39.4  B79.7 

OMEGSCI)  .009  .021  .025  .028  .029  .024 

OMEGRCn  .020  .021  .024  .028  .030  .036 
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r-jr.- 


INHIM.  FLOU  COEFFICIEtfT-  .50000  (STAGE-  1  ) 


STAGE  TOTAL  PRESSURE  RATIO-  1.18053 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.05118 
STAGE  ADIABATIC  EFTICIEMCV-  .94339 

STAGE  FLOW  COEFFICIENT-  .500 
AXIAL  UELOCITY-  483.13 
ROTOR  SPEED-  964.04 

STAGE  TOTAL  PRESSURE  RATIO(ACTUAL)-  1.18053 
STAGE  TOTAL  PRESSURE  RATIO( IDEAL)-  1.19073 

LOSS  FACTOR  IN  ROTOR-  1.01779 
LOSS  FACTOR  IN  STATOR-  .OT7B7 


•ROTOR  It«.ET*  *ROTOR  OUTLET*  -STATOR  OUTLET* 


TOTAL  PRESSURE 

3116.80 

3504.78 

3498.93 

STATIC  PRESSURE 

1833.16 

3064.66 

3191.05 

TOTAL  TEMPERATURE(GAS) 

518.7000 

545.3463 

545.3463 

STATIC  TEMPERATURE (GAS) 

497.7954 

515.9463 

533.3760 

STATIC  DENSITY(GAS) 

.0690 

.0750 

.0773 

STATIC  DENSITV(MIXTURE) 

.0690 

.0750 

.0773 

AXIAL  UELOCITY 

483.1311 

465.8891 

480.6390 

ABSOLUTE  UELOCITY 

500.98S8 

593.3170 

534.1017 

RELATIUE  UELOCITY 

694.5436 

555.6590 

BLADE  SPEED 

636.1474 

670.0514 

703.6173 

TANG.  COMP.  OF  ABS.  UEL. 

136.1987 

367.3343 

TANG.  COMP.  OF  PEL.  UEL. 

499.9486 

303.8371 

ACOUSTIC  SPEED 

1093.9343 

1130.9183 

1130.6073 

ABSOLUTE  MACH  NUMBER 

.4580 

.5337 

.4677 

RELATIUE  MACH  NUMBER 

.6349 

.4989 

FLOW  COEFFICIENT 

.5001 

.4833 

.4986 

FLOW  AREA 

.0104 

.0099 

.0093 

ABSOLUTE  FLOW  ANGLE 

15.7749 

38.3460 

33.5019 

RELATIUE  FLOW  ANGLE 

46.0400 

33.0338 

INCIDENCE 

3.3300 

3.0960 

DEUIATION 

7.3338 

11.3119 
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»  IMITIftL  FLOW  COEFnCIEm-s  .50000  (ISTftCE-  1  ) 


STAGE  PERFORMAMCE  AFTER  INTER-STAGE  ADJUSTMENT (JPERFn*2) 

STAGE  TOTAL  PRESSURE  RATIO^  1.18052 

STAGE  TOTAL  TEMPERATURE  RATIO®  1.0S118 
STAGE  ADIABATIC  EFFICIENCV®  .34929 

•♦STAGE  INLET**  **STAGE  OUTLET**  **STAGE  OUTLET** 
(BEFORE  INTER-  (AFTER  INTER¬ 
STAGE  ADJUST-  STAGE  ADJUST¬ 
MENT)  MENT) 


xu= 

.00000 

.00000 

.00000 

XU® 

0 

0 

0 

xuu® 

0 

0 

0 

XWT® 

0 

0 

0 

XAIR® 

1.00000 

1.00000 

1.00000 

XMETAN® 

0 

0 

1 

XGAS 

1.00000 

1.00000 

1.00000 

UMASS® 

0 

0 

0 

UUNASS® 

0 

0 

1 

UTMASS® 

0 

0 

1 

AMASS® 

.34491 

.34491 

.34491 

CHMASS® 

0 

0 

1 

UMASS® 

.00000 

.00000 

.00000 

GMASS® 

.34491 

.34491 

.34491 

TMASS® 

.34491 

.34491 

.34491 

US® 

.00000 

.00000 

.00000 

RHOA® 

.07649 

.07500 

.07718 

RHOM® 

.06304 

.07500 

.07718 

RHOG® 

.06902 

.07500 

.07718 

TG= 

518.70000 

545.24617 

545.24617 

TU= 

513.70000 

513.70000 

513.70000 

TUH® 

513.70000 

0 

513.70000 

P=  2116.80000 

2504.77696 

2498.92898 

TB® 

671.40656 

0 

679.62039 

TDEU® 

271.99506 

273.35228 

273.35228 
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W  TNITIAL  FLOU  CQOTICIENT-  .50000  (STAGE-  8  ) 


STAGE  TOTAL  PRESSURE  RATIO-  1.18150 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.05S73 
STAGE  ADIABATIC  EFFICIEMCY-  .88538 

STAGE  FLOU  COEFFICIENT-  .439 
AXIAL  UELOCITV-  480.65 
ROTOR  SPEED-  964.04 

STAGE  TOTAL  PRESSURE  RATIOC ACTUAL)-  1.18150 

STAGE  TOTAL  PRESSURE  RATIOCIDEAL)-  1.19700 
LOSS  FACTOR  IN  ROTOR-  .39305 

LOSS  FACTOR  IN  STATOR-  .93331 


•ROTOR  INLET*  tiROTOR  OUTLET* 


TOTAL  PRESSURE 

8498. S3 

2978.36 

STATIC  PRESSURE 

8151.08 

2334.66 

TOTAL  TEMPERATURE (GAS) 

545.8468 

573.9966 

STATIC  TEMPERATURE(GAS) 

528.3793 

535.7319 

STATIC  DENSITY(GAS) 

.0778 

.0817 

STATIC  DENSITY(MIXTURE) 

.0778 

.0817 

AXIAL  UELOCITY 

480.6495 

508.3934 

ABSOLUTE  UELOCITY 

524.1876 

678.1185 

RELATIUE  UELOCITY 

688.9633 

559.5039 

BLADE  SPEED 

708.6178 

701.7250 

TANG.  COMP.  OF  ABS.  UEL. 

809.0116 

455.4619 

TANG.  COMP.  OF  REL.  UEL. 

493.6056 

846.2631 

ACOUSTIC  SPEED 

1120.4811 

1150.2843 

ABSOLUTE  MACH  NUMBER 

.4678 

.5976 

RELATIUE  MACH  NUMBER 

.6149 

.4931 

FLOU  COEFFICIENT 

.4986 

.5211 

FLOU  AREA 

.0093 

.0084 

ABSOLUTE  FLOU  ANCLE 

23.5019 

42.1950 

RELATIUE  FLOU  ANGLE 

45.7619 

26.1132 

INCIDENCE 

3.0819 

2.0850 

DEUIATION 

8.9432 

•STATOR  OUTLET* 
8952.48 
8553.83 
573.9966 
550.6973 
.0869 
.0869 

494. 1596 
589.1491 

738.5063 


1150.4507 

.4599 


.5186 

.0080 

80.9539 


9.8839 


*****************  INITIAL  FLOW  COEFFICIENT-  .50000  (ISTAGE-  S  ) 

STAGE  PERFORMANCE  AFTER  INTER-STAGE  A1UJSTMENT(JPERFM«2) 

STAGE  TOTAL  PRESSURE  RATIO-  1.18150 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.05273 
STAGE  ADIABATIC  EFFICIENCY-  .92538 


••STAGE  INLET** 

**STAGE  OUTLET** 
(BEFORE  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

**STAGE  OUTLET** 
(AFTER  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

XU- 

.00000 

.00000 

.00000 

XU- 

0 

0 

0 

XUU- 

0 

0 

0 

XUT- 

0 

0 

0 

XAIR- 

1.00000 

1.00000 

1.00000 

XMETAN- 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

UMASS- 

0 

0 

0 

UUMASS- 

0 

0 

0 

UTMASS- 

0 

0 

0 

AMASS- 

.34491 

.34491 

.34491 

CHMASS- 

0 

0 

0 

UMASS- 

.00000 

.00000 

.00000 

GMASS- 

.34491 

.34491 

.34491 

TMASS- 

.34491 

.34491 

.34491 

US- 

.00000 

.00000 

.00000 

RHOA- 

.08590 

.08168 

.08692 

RHOM- 

. 06904 

.08168 

.08692 

RHOG- 

.07718 

.08168 

.08692 

TG- 

545.24617 

573.99661 

573.99661 

TU- 

513.70000 

513.70000 

513.70000 

TUU- 

513.70000 

0 

513.70000 

P=  i 

3498.92898 

2972.3595S 

2952.48188 

TB- 

679.62039 

0 

688.08016 

TDEH- 

273.35228 

274.74655 

274.74655 

264 


. . .  INITIAL  FLCU  COEFFICIENT*  .50000  (STAGE-  3  ) 

STAGE  TOTAL  PRESSURE  RATIO-  1.88366 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06SS6 
STAGE  ADIABATIC  EFFICIENCY-  .38118 

STAGE  FLOM  COEFFICIENT-  .513 
AXIAL  UELOCITV-  494.17 
ROTOR  SPEED-  964.04 

STAGE  TOTAL  PRESSURE  RATIO(ACTUAL)*  1.88966 
STAGE  TOTAL  PRESSURE  RATIO( IDEAL)-  1.85071 
LOSS  FACTOR  IN  ROTOR-  .99061 

LOSS  FACTOR  IN  STATOR-  .99091 


•ROTOR  INLET*  •ROTOR  OUTLET*  *STATOR  OUTLET* 


TOTAL  PRESSURE 

8958.48 

3663.87 

3630.55 

STATIC  PRESSURE 

8553.80 

8887.58 

3166.80 

TOTAL  TEMPERATURE(CAS) 

573.9966 

611.8566 

611.8566 

STATIC  TEMPERATURE(CAS) 

550.7079 

568.8398 

588.4487 

STATIC  DENSITY(GAS) 

.0869 

.0933 

.1009 

STATIC  DENSITV(MIXTURE) 

.0869 

.0933 

.1009 

AXIAL  UELOCITV 

494.1744 

588.5140 

494.0333 

ABSOLUTE  UELOCITV 

589.1698 

784.3096 

530.6107 

RELATIUE  UELOCITV 

734.4083 

570.3688 

BLADE  SPEED 

738.5063 

730.8758 

768.1948 

TANG.  COMP.  OF  ABS.  UEL. 

189.8399 

501.6010 

TANG.  COMP.  OF  REL.  UEL. 

543.8664 

888.6748 

ACOUSTIC  SPEED 

1150.8687 

1188.4867 

1189.0841 

ABSOLUTE  MACH  NUMBER 

.4600 

.6199 

.4463 

RELATIUE  MACH  NUMBER 

.6385 

.4881 

FLOW  COEFFICIENT 

.5186 

.5480 

.5185 

FLOU  AREA 

.0080 

.0071 

.0069 

ABSOLUTE  FLOU  ANGLE 

80.9539 

43.8301 

81.4115 

RELATIUE  FLOU  ANGLE 

47.7098 

83.6363 

INCIDENCE 

6.0898 

.4701 

DEUIATION 

10.5163 

10.9015 
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. . . .  INITIAL  Fl^  COEITICIENT-  .50000  (ISTACE-  3 

STAGE  PERFORMANCE  AFTER  INTER-STAGE  ADJUSTMENT (JPERFM^) 

STAGE  TOTAL  PRESSURE  RATIO-  1.SS66 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06S96 
STAGE  ADIABATIC  EFFICIENCY-  .SEllS 

••STAGE  INLET*^  ••STAGE  OJTLET^^  *<tSTAGE  OUTLET^* 


(BEFORE  INTER-  (AFTER  INTER¬ 
STAGE  ADJUST-  STAGE  ADJUST- 


xu- 

.00000 

MENT) 

.00000 

MENT) 

.00000 

xu- 

0 

0 

0 

xuu- 

0 

0 

0 

XHT= 

0 

0 

0 

XAIR- 

1.00000 

1.00000 

1.00000 

1 

XMETAN- 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

UNASS= 

0 

0 

0 

UUMASS- 

0 

0 

( 

WTMASS- 

0 

0 

1 

ANASS- 

.344S1 

.34491 

.34491 

1 

CHMASS* 

0 

0 

UMASS- 

.00000 

.00000 

.00000 

GMASS- 

.34491 

.34491 

.34491 

TMASS- 

.34491 

.34491 

.34491 

WS= 

.00000 

.00000 

.00000 

RHOA= 

.09B41 

.09326 

.10086 

RHOM= 

.06904 

.09326 

.10086 

RHOG= 

.08698 

.09326 

.10086 

TG= 

573.99661 

611.^659 

611.85559 

TH= 

S13.70000 

513.70000 

513.70000 

THH- 

S13.70000 

0 

513.70000 

P-  SS5S. 48188 

3663.87348 

3630.55342 

TB= 

688.08016 

0 

698.86348 

TDEW- 

274.74655 

276.46988 

276.46988 

266 


mniAL  FLXN  eOEFFICIEHT*  .50000  (STnCE-  4  > 

STAGE  TOTAL  PRESSURE  RATIO-  1.24218 

STAGE  TOTAL  TEHPERATURE  RATIO-  1.06S78 
STAGE  ADIABATIC  EFFICIENCY-  .91238 

STAGE  FLOU  COEFFICIENT-  .513 
AXIAL  UELOCITY-  494.07 
ROTOR  SPEED-  964.04 

STAGE  TOTAL  PRESSURE  RATIO(ACTUAL)-  1.24218 
STAGE  TOTAL  PRESSURE  RATIO(IOEAL)-  1.26894 
LOSS  FACTOR  IN  ROTOR-  .98759 
LOSS  FACTOR  IN  STATOR-  .98968 


•ROTOR  INLET*  •ROTOR  OUTLET*  •STATOR  OUTLET- 


TOTAL  PRESSURE 

3630.55 

4556.82 

4509.80 

STATIC  PRESSURE 

3166.66 

3525.69 

3957.68 

TOTAL  TEHPERATURE(GAS) 

611.8SK 

654.5529 

654.5529 

STATIC  TENPERATURE(GAS) 

588.4681 

608.4010 

630.6384 

STATIC  OENSITY(CAS) 

.1009 

.1086 

.1176 

STATIC  DENSITV(MIXTURE) 

.1009 

.1086 

.1176 

AXIAL  UELXITY 

494.0715 

522.8404 

496.2018 

ABSOLUTE  UELOCITY 

530.6990 

745.6155 

536.7235 

RELATIUE  UELOCITY 

757.6978 

572.0630 

BLADE  SPEED 

768.1948 

763.7337 

798.0839 

TANG.  CONP.  OF  ABS.  UEL. 

193.7330 

531.5829 

TANG.  COMP.  OF  REL.  UEL. 

S74.45S8 

232.1508 

ACOUSTIC  SPEED 

1188.6880 

1230.0789 

1230.5425 

ABSOLUTE  NACH  NUNBER 

.4465 

.6169 

.4362 

RELATIUE  NACH  NUNBER 

.6374 

.4733 

FLOU  COEFFICIENT 

.5125 

.5423 

.5147 

FLOU  AREA 

.0069 

.0061 

.0059 

ABSOLUTE  FLOU  ANGLE 

21.4115 

45.4750 

22.4163 

RELATIUE  FLOU  ANGLE 

49.3022 

23.9421 

INCIDENCE 

6.4522 

.4750 

DEUIATION 

10.1821 

10.6063 
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IlilTIAL  FLOW  COEFFICIENT*  .50000  (ISTACE*  4 


STAGE  PERFORMANCE  AFTER  INTER-STAGE  ADJUSTMENT (JPERFN-2) 


STAGE  TOTAL  PRESSURE  RATIO*  1.24218 

STAGE  TOTAL  TEMPERATURE  RATIO*  1.06378 
STAGE  ADIABATIC  EFFICIENCY*  .91298 


••STAGE  INLET^^ 

••STAGE  OUTLET^^ 
(BEFORE  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

••STAGE  OUTLET** 
(AFTER  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

XU* 

.00000 

.00000 

.00000 

XW= 

0 

0 

0 

XUU* 

0 

0 

0 

XWT* 

0 

0 

0 

XAIR* 

1.00000 

1.00000 

1.00000 

XMETAN* 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

UMASS* 

0 

0 

0 

UUMASS* 

0 

0 

0 

WTMASS* 

0 

0 

0 

AMASS* 

.34491 

.34491 

.34491 

CHMASS* 

0 

0 

0 

UMASS* 

.00000 

.00000 

.00000 

GMASS* 

.34491 

.34491 

.34491 

TMASS* 

.34491 

.34491 

.34491 

WS= 

.00000 

.00000 

.00000 

RHOA* 

.11122 

.10860 

.11762 

RHOM* 

.06904 

.10860 

.11762 

RHOG* 

.10086 

.10860 

.11762 

TG= 

611.85659 

654.55293 

654.55293 

TW= 

513.70000 

513.70000 

513.70000 

TUH* 

513.70000 

0 

513.70000 

P= 

3630.55342 

4556.82036 

4509.79574 

TB* 

698.86348 

0 

710.54436 

TDEH* 

276.46988 

278.29004 

278.29004 
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w— ■■■■■>■■■■■■  IHITlflL  FLOH  COEFFICIEHT-  .SOOOO  (STAGE-  5  ) 

STAGE  TOTAL  PRESSURE  RATIO-  1.23414 

STAGE  TOTAL  TETTERATURE  RATIO-  1.06733 
STAGE  ADIABATIC  EFFICIENCY-  .S0683 

STAGE  FLOU  COEFFICIENT-  .515 
AXIAL  UELXITY-  4S6.25 
ROTOR  SPEED-  364.04 

STAGE  TOTAL  PRESSURE  RATIO(ACTUAL)>  1.23414 
STAGE  TOTAL  PRESSURE  RATIO( IDEAL)-  1.2SSS0 
LOSS  FACTOR  IN  ROTOR-  .S8308 
LOSS  FACTOR  IN  STATOR-  .S8S43 


•ROTOR  INLET*  •ROTOR  OUTLET*  •STATOR  OUTLET* 


TOTAL  PRESSURE 

4S0S.80 

5624.85 

5565.72 

STATIC  PRESSURE 

3S57.S2 

4401.30 

4921.73 

TOTAL  TEHPERATURE(GAS) 

654.S52S 

6SS.0183 

699.0183 

STATIC  TENPERATURE(GAS) 

630. 6733 

651.S165 

674.9958 

STATIC  DENSITY(GAS) 

.1176 

.1265 

.1367 

STATIC  DENSITY(MIXTURE) 

.1176 

.1265 

.1367 

AXIAL  UELOCITV 

4S6.24SS 

517.3326 

493.7867 

ABSOLUTE  UELOCITV 

536.8130 

754.05S9 

538.5133 

RELATIUE  UELOCITV 

773. 5383 

570.7437 

BLADE  SPEED 

738.0833 

787.8235 

819.0509 

TANG.  COMP.  OF  ABS.  UEL. 

204.7050 

548.0433 

TANG.  COMP.  OF  REL.  UEL. 

5S3.378S 

239.7736 

ACOUSTIC  SPEED 

1230.0502 

1272.1584 

1272.5386 

ABSOLUTE  MACH  NUMBER 

.4364 

.6030 

.4232 

RELATIUE  NACH  NUMBER 

.6283 

.4564 

FLOW  COEFFICIENT 

.5148 

.5373 

.5122 

FLOW  AREA 

.0053 

.0053 

.0051 

ABSOLUTE  FLOU  ANGLE 

22.4163 

46.6180 

23.5232 

RELATIUE  FLOU  ANCLE 

50.0S3S 

24.8420 

INCIDENCE 

6.0S3S 

.3080 

DEUIATION 

10.5120 

10.2032 
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WMHHHNHHHHHHHMMI  imTIflL  FLOW  COEFFICIEHT*  .50000  (ISTACE* 
STAGE  PERFORMAMCE  AFTER  INTER-STAGE  ADJUSTMENT (JPERFM=a) 


5 


STAGE  TOTAL  PRESSURE  RATIO-  1.23414 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06793 

STAGE  ADIABATIC  EFFICIENCY-  .90663 

••STAGE  INLET^^  ••STAGE  OUTLET^* 

••STAGE  OUTLET*** 

XU= 

.00000 

(BEFORE  INTER¬ 
STAGE  AIUJST- 
MENT) 

.00000 

(AFTER  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

.00000 

XM= 

0 

0 

0 

XUU- 

0 

0 

0 

XWT= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN- 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

UMASS- 

0 

0 

0 

UUMASS- 

0 

0 

0 

UTMASS- 

0 

0 

0 

AMASS- 

.34491 

.34491 

.34491 

CHMASS- 

0 

0 

0 

UMASS- 

.00000 

.00000 

.00000 

GMASS- 

.34491 

.34491 

.34491 

TMASS- 

.34491 

.34491 

.34491 

US- 

.00000 

.00000 

.00000 

RHOA- 

.12914 

.12651 

. 13665 

RHOM- 

.06904 

.12651 

. 13665 

RHX= 

.11762 

.12651 

.13665 

TG® 

654.552S3 

699.01831 

699.01831 

TU= 

513.70000 

513.70000 

513.70000 

TUU= 

513.70000 

0 

513.70000 

P= 

4509.79574 

5624.84868 

5565.71763 

TB- 

710.54436 

0 

725.30379 

TDEU= 

278.29004 

270.78298 

270.78298 
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INTTIM.  FLGM  COEFFICIENT-  .50000  (STAGE-  6  ) 

STAGE  TOTAL  PRESSURE  RATIO-  1.21895 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.08377 
STAGE  ADIABATIC  EFFICIENCY-  .90483 

STAGE  FLOU  COEFFICIENT-  .512 
AXIAL  UELOCITY-  493.84 
ROTOR  SPEED-  964.04 

STAGE  TOTAL  PRESSURE  RATIO(ACTUAL)-  1.21895 
STAGE  TOTAL  PRESSURE  RATI0( IDEAL)-  1.24345 

LOSS  FACTOR  IN  ROTOR-  .97403 

LOSS  FACTOR  IN  STATOR-  .99138 


•ROTOR  INLET*  *ROTC»  OUTLET*  *STATOR  OUTLET* 


TOTAL  PRESSURE 

5565.72 

6843.38 

6784.36 

STATIC  PRESSURE 

4921.56 

5436.20 

5876.36 

TOTAL  TEMPERATURECGAS) 

699.0183 

743.5938 

743.5938 

STATIC  TErPERATURE(GAS) 

675.0454 

696.5955 

713.9007 

STATIC  DENSITY(GAS) 

.1367 

.1463 

.1543 

STATIC  DENSITY(MIXTURE) 

.1367 

.1463 

.1543 

AXIAL  UELQCITY 

4S3.840F 

505.0266 

478.8044 

ABSOLUTE  UELQCITY 

538.5989 

754.2557 

599.5224 

RELATIUE  UELQCITY 

780.2545 

557.2913 

BLADE  SPEED 

819.0509 

795.8534 

.5000 

TANG.  COMP.  OF  ABS.  UEL. 

214.9659 

560.2230 

TANG.  CONP.  OF  REL.  UEL. 

604.0850 

235.6304 

ACOUSTIC  SPEED 

1271.8989 

1307.3852 

1307.9918 

ABSOLUTE  MACH  NUMBER 

.4235 

.5838 

.4584 

RELATIUE  MACH  NUMBER 

.6135 

.4313 

FLOW  COEFFICIENT 

.5123 

.5239 

.4994 

FLOU  AREA 

.0051 

.0047 

.0047 

ABSOLUTE  FLOU  ANGLE 

23.5232 

47.9662 

37.0059 

RELATIUE  FLOU  ANGLE 

50.7339 

25.0124 

INCIDENCE 

5.6639 

-.7438 

DEUIATION 

10.5824 

7.7259 
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mniAL  FLQH  COEFFICIEMT*  .50000  (ISTACE«  6  ) 


STAGE  PERFORMANCE  AFTER  INTER-STAGE  ADJUSTMENT! JPERFM«2) 


STAGE  TOTAL  PRESSURE  RATIO»  1.21835 

STAGE  TOTAL  TEMPERATURE  RATIO=  1.0B377 

STAGE  ADIABATIC  EFFICIENCY*  .90463 

••STAGE  INLET**  **STAGE  OUTLET** 

(BEFORE  INTER¬ 
STAGE  AD.AJST- 
MENT) 

••STAGE  OUTLET** 
(AFTER  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

XU= 

.00000 

.00000 

.00000 

XW= 

0 

0 

0 

XUU* 

0 

0 

0 

XUT= 

0 

0 

0 

XAIR= 

l.OOOCO 

1.00000 

1.00000 

XMETAN* 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

UMASS* 

0 

0 

0 

UUMASS* 

0 

0 

0 

WTMASS* 

0 

0 

0 

AMASS* 

.34491 

.34491 

.34491 

CHMASS* 

0 

0 

0 

UMASS* 

.00000 

.00000 

.00000 

GMASS* 

.34491 

.34491 

.34491 

TMASS* 

.34491 

.34491 

.34491 

WS= 

.00000 

.00000 

.00000 

RHOA* 

. 14924 

.14623 

. 15426 

RHOM* 

.06904 

.14623 

. 15426 

RHOG* 

. 13665 

.14623 

.15426 

TG= 

699.01831 

743.59381 

743.59381 

TW* 

513.70000 

513.70000 

513.70000 

TWW* 

513.70000 

0 

513.70000 

P= 

5565.71763 

6843.37717 

6784.35886 

TB= 

725.30379 

0 

737.46504 

TDEW* 

270.78298 

272.44415 

272.44415 
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hmhmhhh***  ouerall  performance  ■■■■■«■■■ 

INITIAL  FLOU  COEFFICIENTS  .50OOO 

CORRECTED  SPEED=51iaO.O  1.000  FRACTION  OF  DEIGN  CORRECTED  SPEED 

INITIAL  WATER  CONTENT(SMALL  DROPLET)=  0 

INITIAL  WATER  CONTENT (LARGE  DROPLET )=  0 

INITIAL  WATER  CONTENT! TOTAL )=  0 

INITIAL  RELATIUE  HUMIDITY=  .0  PER  CENT 
INITIAL  METHANE  CONTENTS  0 

COMPRESSOR  INLET  TOTAL  TEMPERATURE=  518. FO 

COMPRESSOR  INLET  TOTAL  PK;SSURE=  2116.80 

CORRECTED  MASS  FLOW  RATE  OF  MIXTURE=  .345(  2.910) 

CORRECTED  MASS  FLOW  RATE  OF  GAS  PHASE  .34S(  2.910) 

OUERALL  TOTAL  PRESSURE  RATIO=3.2050 

OUERALL  TOTAL  TEMPERATURE  RATI0=1.433B 

OUERALL  ADIABATIC  EFFICIENCY=  .9057 

OUERALL  TEMPERATURE  RISE  OF  GAS  PHASE*  224.894 
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AD-Atl4  650  PURDUE  UNXV  LAFAYETTE  IN  SCHOOL  OF  MECHANICAL  ENOXNEERXNe  F/6  21/5 

EFFECT  OF  MATER  ON  AXXAL  FLOH  COMPRESSORS*  PART  X*  ANALYSIS  AND«^TC(U) 
JUN  81  T  TSUCHlYAf  S  N  MURTHY  FSS615»76»C-2«01 

AFNAL-TR-80-2090-PT-1  NL 


UNCLASSIFIED 


III  '-0 

1^  |2  8 
g50  HHHB 

1^ 

t- 

III  == 

||2.2 

LI 

(.  Ib 

^  II 

m 

M= 

14 

111— 

III 

^11 

MICROCOPY  RESOLUTION  TEST  CHART 

NAIIONAL  BUREAU  Of  STANDARDS  A 


INPUT  DATA 


NS(NUNBER  OF  STAGE)*  6 
UNIT«CNGLISH  UNIT 
1PERFN=2 

PERFORMANCE  AT  MEAN 


1 

2 

3 

4 

5 

6 

IGV 

RRHUB(I) 

.770 

1.035 

1.232 

1.378 

1.489 

1.572 

RCd) 

.605 

.554 

.534 

.510 

.483 

.456 

RBLAOE(I) 

16.00 

20.00 

20.00 

25.00 

28.00 

32.00 

STAGERd) 

34.25 

29.96 

27.37  28.30 

29.17  29.75 

STAGESCI) 

23.67 

25.62  26.94  28.41 

29.82 

38.99 

SRHUBII) 

.923 

1.145 

1.311 

1.445 

1.538 

1.580 

.774 

SCd) 

.442 

.412 

.412 

.412 

.412 

.412 

SBLAOECI) 

14.00 

26.00 

28.00 

32.00 

36.00 

30.00 

SIGUMRCl) 

1.052 

1.120 

1.037 

1.182 

1.211 

1.283 

SIGUMSd) 

.640 

1.061 

1.093 

1.139 

1.311 

1.087 

GAPRCI) 

.125 

.125 

.125 

.125 

.125 

.125 

GAPSCI) 

.125 

.125 

.125 

.125 

.125 

.125 

RRTIPd) 

2.16 

2.16 

2.16 

2.16 

2.16 

2.16 

SRTIPd) 

2.16 

2.16 

2.16 

2.16 

2.16 

2.16 

2.16 

RTd) 

2.149 

2.151 

2.148  2.149  2.149 

2.147 

RMd) 

1.426 

1.575 

1.642 

1.722 

1.789 

1.836 

RHd) 

.781 

1.056 

1.252 

1.411 

1.533 

1.621 

STd) 

2.147 

2.138 

2.127  2.123  2.118 

2.100 

SMd) 

1.502 

1.573 

1.637 

1.712 

1.766 

1.784 

SHCI) 

.934 

1.152 

1.318 

1.453 

1.548 

1.592 

BLOCKd) 

.983 

.976 

.967 

.949 

.923 

.902 

BLOCKSd) 

.978 

.966 

.945 

.928 

.908 

.863 

BETlMRd) 

42.72 

42.74 

41.62 

42.85 

44.00 

45.07 

BET2MRd) 

25.79 

17.17 

13.12 

13.76 

14.33 

14.43 

BETlMSd) 

35.15 

40.11 

43.36 

45.00 

46.31 

48.71 

0 

BET2MSd) 

12.19 

11.13 

10.51 

11.81 

13.32 

29.28  21.99 

PR12Dd) 

1.154 

1.165 

1.221 

1.237 

1.230 

1.215 

PR13Dd) 

1.152 

1.159  1.213 

1.228 

1.221 

1.208 

ETARDCI) 

.966 

.966 

.968 

.965 

.962 

.954 
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. . * . INPUT  PftTft  ■ww— —w 

FNFCFRPCTION  OF  DESIGN  CORRECTED  SPEED)>1.000 

XDINdlilTIAL  MATER  COMTEMT  OF  SMALL  DROPLET)®  .040 
XDDIN( INITIAL  MATER  CONTENT  OF  LARGE  DROPLET)®  0 
RHUMIDC INITIAL  RELATIUE  HUMIDITY)®  .00  PER  CENT 
XCH4( INITIAL  METHANE  CONTENT)®  0 

TOGCCOMPRESSOR  INLET  TOTAL  TEMPRATURE  OF  GAS)®  518.70 
TOM (COMPRESSOR  INLET  TEMPERATURE  OF  DROPLRET)®  513.70 
PO(COMPRESSOR  INLET  TOTAL  PRESSURE)®  S116.80 

DINdNITIIL  DROPLET  DIAMETER  OF  SMALL  DROPLET)*  20.0 
DDINdNITIAL  DROPLET  DIAMETER  OF  LARGE  DROPLET)®  600.0 

FNDCDESIGN  ROTATIONAL  SPEEO)-51120.0 

DSMASS(DESICN  MASS  FLOM  RATE)®  .3755 

COMPRESSOR  INLET  TATAL  TEMPERATURE (GAS  PHASE)  518.70 

COMPRESSOR  INLET  TOTAL  PRESSURE®  2116.80 

PREB(PERCENT  OF  MATER  THAT  REBOUND  AFTER  IMPINGE  tCNT)®  50.0  PERCENT 
ROTOR  SPEED=51 120.0  RPM 

CORRECTED  ROTOR  SPEED®  51120.0  RPN(  lOO.OPER  CENT  OF  DESIGN  CORRECTED  SPEED) 
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BEBIGM  POINT  IlfORtWTlUl  ■■■■—■■! 

*•«***  COMPRESSOR  in£T  •**•* 

TOTAL  TEMPERATURE  AT  COIffRESSOR  INLET-  518.70000 
TOTAL  PRESSURE  AT  COMPRESSOR  IMLET-  8116.80 
STATIC  TEMPERATURE  AT  COMPRESSOR  IML£T>  4S6.8810S 
STATIC  PRESSURE  AT  COMPRESSOR  INLET-  1813.73 
STATIC  DENSITY  AT  COMPRESSOR  IMLET-  .06850 

ACOUSTIC  SPEED  AT  COMPRESSOR  IMLET-10ae.8SS14 
AXIAL  UELOCITY  AT  COMPRESSOR  INLET-  518.81873 
MACH  NUMBER  AT  COMPRESSOR  INLET-  .47500 
STREAMTUBE  AREA  AT  COMPRESSOR  INLET-  .01057 
FLOU  COEFFICIENT  AT  COMPRESSOR  INLET-  .53817 
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1]E5ICN  POITIT  mFORMAnON 


STAGE- 

1  WHHM 

TOTAL 

TENP 

TOTAL 

PRESSURE 

STATIC 

TENP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

518.700 

541.148 

2116.800 

2442.787 

492.637 

508.26S 

1767.579 

1961.576 

.067 

.072 

AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN  COMP 

OF  ABS  UEL 

TAN  COMP 

OF  REL  UEL 

ROTOR  INLET 
ROTOR  OUTLET 

538.76531 

525.S7105: 

5SS.3S838 

628.55682 

725.32398 

618.75550 

150.52734 

344.14838 

485.62003 

325.90306 

ROTOR 

SPEED 

ABS  NACH 
NUNBER 

REL  NACH 
NUMBER 

REL  TOTAL 
TEMP 

REL  TOTAL 
PRESSURE 

ROTOR  INLET 
ROTOR  OUTLET 

636. 147 
670.051: 

.514 

.563 

.667 

.560 

536.454 

540.141 

2381.210 

5091.790 

ABS  FLOU 
ANGLE 

REL  FLQU 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOM 

COEFFICIENT 

ROTOR  INLET 
ROTOR  OUTLET 

15.61000 

33.13714 

42.03015 

31.78325 

.01036 

.00987 

1.42600 

1.50200 

.55886 

.54559 

STAGE  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT*  1.15200 

STAGE  adiabatic  EFFICIENCY  AT  DESIGN  POINT*  .35383 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT*  1.15400 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .SBBOO 

ROTOR  TOTAL  TENPERATURE  RATIO  AT  DESI»<  POINT*  1.04328 
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OESIGN  POINT  INFORMNnON 


***••  STAGE*  S  mhhm 


ROTOR  INLET 
ROTOR  OUTLET 


ROTOR  INLET 
ROTOR  OUTLET 


ROTOR  INLET 
ROTOR  OUTLET 


TOTAL 

TEMP 

541.148 

566.141 

AXIAL 

UELOCITY 


ROTOR 

SPEED 

708.617 

701.725 

ABS  FLOU 
ANGLE 

21.89000 

36.8156S 


TOTAL 

PRESSURE 

2438.554 

2840.915 

ABSOLUTE 

UELOCITY 

591.88727 

725.94045 

ABS  NACH 
NUNBER 

.534 

.648 

REL  FLOU 
ANGLE 

41.26765 

24.K154 


STATIC 

TEHP 

511.984 

522.316 

RELATIUE 

UELKITY 

730.68951 

639.44211 

REL  NACH 
NUNBER 

.659 

.571 

STREAHTUBE 

AREA 

.00930 

.00841 


STATIC 

PRESSURE 

2008.852 

2142.394 

TAN  CONP 
OF  ABS  UEL 

220.67086 

435.01464 

REL  TOTAL 
TENP 

556.431 

556.331 


RADIUS 

1.57500 

1.57300 


ROTOR  INLET  549.21299 
ROTOR  OUTLET  581.16447 


STAGE  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT*  1.15900 

STAGE  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .93231 

ROTOR  TOTAL  PRESSURE  RATIO  AT  OESIGN  POINT*  1.16500 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .96600 

ROTOR  TOTAL  TENPERATURE  RATIO  AT  DESIGN  POINT*  1.04618 


STATIC 

DENSITY 

.074 

.077 

TAN  CONP 
OF  REL  UEL 

481.94632 

266.71034 

REL  TOTAL 
PRESSURE 

2688.136 

5751.007 

FLOU 

COEFFICIENT 

.56970 

.60285 
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DESicn  poirtT  iNFCRmnoN 


*****  STAGE=  3  ***** 


ROTOR  IMLET 
ROTOR  OUTLET 


ROTOR  INLET 
ROTOR  OUTLET 


ROTOR  INLET 
ROTOR  OUTLET 


ROTOR  INLET 
ROTOR  OUTLET 


TOTAL 

TENP 

566. 141 
600. 46S 

AXIAL 

UELOCITY 

574.81563 

614.43880 

ROTOR 

SPEED 

738.506 

730.876 

ABS  PLOU 
ANGLE 

19.09000 

38.18938 


TOTAL 

PRESSU^ 

8886.884 

3450.898 

ABSOLUTE 

UELOCITV 

608.86663 

781.11343 

ABS  NACH 
NUNBER 

.51% 

.680 

REL  FLOW 
ANGLE 

48.86898 

81.97890 


STATIC 

TENP 

535.368 

549.786 

RELATIUE 

UELOCITY 

784.89006 

668.59507 

REL  NACH 
NUNBER 

.698 

.577 

STREANTUBE 

AREA 

.00803 

.00708 


STATIC 

PRESSURE 

8383.868 

8533.049 

TAN  COMP 
OF  ABS  UEL 

198.93541 

488.88950 

REL  TOTAL 
TEMP 

586.533 

586.863 


RADIUS 

1.64800 

1.63700 


STATIC 

DENSITY 

.081 

.086 

TAN  COMP 
OF  REL  UEL 

533.57089 

847.98687 

REL  TOTAL 
PRESSURE 

3199.070 

6989.751 

FLOU 

COEFFICIENT 

.59686 

.63736 


STAGE  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT*  1.21300 

STAGE  ADIABATIC  EFFICIENCY  AT  DESICN  POINT*  .93464 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT*  1.82100 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .36800 

ROTOR  TOTAL  TEMPERATURE  RATIO  AT  KSIGN  POINT*  1.060K 
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DESIGN  PaiNT  INPORtWmGM 


*****  STAGE*  4  ***** 


TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR  INLET 
ROTOR  OUTLET 

600.463 

639.381 

34^.363 

4340.785 

569.069 

585.841 

S39.988 

3118.959 

.094 

.100 

AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELKITY 

TAN  COMP 

OF  ABS  UEL 

TAN  COMP 

OF  REL  UEL 

ROTOR  INLET  580.04590 
ROTOR  OUTLET  619.63965 

614.69778 

803.61317 

809.54747 

668.93304 

303.47030 

511.70446 

564.73459 

353.(»936 

ROTOR 

SPEED 

ABS  MACH 
MUNBER 

REL  MACH 
NUMBER 

REL  TOTAL 
TEM® 

REL  TOTAL 
PRESSURE 

ROTOR  INLET 
ROTOR  OUTLET 

768.195 

763.734 

.536 

.678 

.693 

.564 

633.519 

633.951 

3913.431 

8331.914 

ABS  FLOU 
ANGLE 

REL  FLOM 
ANGLE 

STREANTUBE 

AREA 

RADIUS 

FLOU 

COEFFICIENT 

ROTOR  INLET 
ROTOR  OUTLET 

19.33000 

39.S503S 

44.33331 

33.13333 

.00693 

.00607 

1.73300 

1.71300 

.60169 

.64376 

STAGE  TOTAL  PRESSURE  RAHO  AT  DESIGN  POINT*  1.2S800 

STAGE  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .33003 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT*  1.33700 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .36500 

ROTOR  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT*  1.06481 
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DESIGN  POINT  INFORNftTION 


*••««  STPCE*  5  ••••• 


TOTAL 

TENP 

TOTffl. 

PRESSURE 

STATIC 

TENP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

639.381 

679.732: 

4209.930 

5178.214 

606.9K 

625.197 

3506.755 

3857.244 

.108 

.116 

AXIAL 

UELOCITV 

ABSOLUTE 

UELOCITV 

RELATIUE 

UELOCITV 

TAN  COMP 

OF  ABS  UEL 

TAN  COMP 

OF  REL  UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

586.84149 

617.08868; 

625.22167 

811.98444 

826.78513 

669.65381 

215.68308 

527.75042 

582.40082 

260.07304 

ROTOR 

SPEED 

ABS  HAD4 
NUNBER 

REL  NACH 
NUNBER 

REL  TOTAL 
TEMP 

REL  TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

798.084 

787.823 

.518 

.663 

.685 

.547 

663.653 

662.302 

4798.526 

9691.778 

ABS  FLOU 
ANGLE 

REL  FLOU 
ANGLE 

STREANTUBE 

AREA 

RADIUS 

FLOU 

COEFFICIENT 

ROTOR 

ROTOR 

INLET 

OUTLET 

20.18000 

40.53794 

44.78240 

22.85308 

.00591 

.00526 

1.78900 

1.76600 

.60873 

.64011 

STAGE  TOTAL  PRESSURE  RAHO  AT  DESIGN  POINT*  1.22100 

STAGE  ADIABATIC  EFFICIENCV  AT  DESIGN  POINT*  .32580 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT-  1.23000 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .96200 

ROTOR  TOTAL  TENPERATURE  RATIO  AT  DESIGN  POINT*  1.06311 
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DESIGN  POINT  INFORMATION 


•••«•  STAGE^  6 


TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR  INLET 
ROTOR  OUTLET 

679.732 

720.259: 

5140.325 

6245.495 

646.933 

665.989 

4318.954 

4736.291 

.1% 

.133 

AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN  COMP 

OF  ABS  UEL 

TAN  COMP 

OF  REL  UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

587.19574 

603.39773 

629.60666 

811.09676 

833.74045 

654.61329 

227. 16890 
542.02320 

591.88199 

253.83017 

ROTOR 

SPEED 

ABS  MACH 
NUMBER 

REL  MACH 
NUMBER 

REL  TOTAL 
TEMP 

REL  TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

819.051 

795.853. 

.506 

.642 

.669 

.518 

704.449 

701.350 

5829.034 

10970.182 

ABS  FLOU 
ANGLE 

REL  FLOW 
ANCLE 

STREAMTUBE 

AREA 

RADIUS 

FLOU 

COEFFICIENT 

ROTOR 

INLET 

21.15000 

45.22772 

.00511 

1.83600 

.60910 

ROTOR  OUTLET  41.932%:  22.81494  .00467  1.78400  .62591 

STAGE  TOTAL  PRESSURE  RAHO  AT  DESIGN  POINT®  1.20800 

STAGE  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT®  .92365 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT®  1.21500 

ROTOR  ADIABATIC  EFFICIENCY  AT  KSIGN  POINT®  .95400 

ROTOR  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT®  1.05962 
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DESIGN  POINT  INFORMATION 


»»«>««««»  OUERALO.  PERFORMANCE  AT  DESIGN  POINT  **** 
COMPRESSOR  INLET  TOTAL  TEMPERATURE-  518.70 
COMPRESSOR  INLET  TOTAL  PRESSURE-  8116.80 
CORRECTED  NASS  FLOU  RATE-  3.168 
OUERALL  TOTAL  PRESSURE  RATlO-8.9334 
OUERALL  TOTAL  TEMPERATUi^  RATIO-1.3886 
OUERALL  ADIABATIC  EFFICIENCV-  .9883 
OUERALL  TEMPERATURE  RISE-  801.559 


1 

8 

3 

4 

5 

6 

IGU 

BETlSRd) 

48.03  41.87  48.87 

44.83 

44.78 

45.83 

BET8SR(1) 

31.78 

84.65  81.98 

88.13 

88.85 

88.81 

AINCSRd) 

-.69 

-1.47 

1.85 

1.38 

.78 

.16 

ADEUSR(I) 

5.99 

7.48 

8.86 

8.37 

8.58 

8.38 

BETISS(I) 

33.80 

36.88  38.13 

39.55 

40.54 

41.93 

BET8SS(1) 

81.89 

19.09 

19.33 

80.18 

81.15 

34.86 

15.61 

AINCSSd) 

-1.95 

-3.89 

-5.83 

-5.45 

-5.77 

-6.78 

ADEUSSd) 

9.70 

7.96 

8.88 

8.37 

7.83 

5.58 

TDd) 

518.7 

541.1 

566.1 

600.5 

639.4 

679.7 

OMEGSCI) 

.009 

.081 

.085 

.088 

.089 

.084 

OMEGRCI) 

.080 

.081 

.084 

.088 

.030 

.036 
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I . .  IlilTIftL  FLOW  COEFFICIENT-  .50000  (STAGE-  1  ) 

STAGE  TOTAL  PRESSURE  RATIO-  1.17523 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.0507B 
STAGE  ADIABATIC  EFFICIENCY-  .S305B 

STAGE  FLOW  COEFFICIENT-  .500 
AXIAL  UELOCITV-  482.13 
ROTOR  SPEED-  364.04 

STAGE  TOTAL  PRESSURE  RATI0(M:TUAL)«  1.17523 
STAGE  TOTAL  PRESSURE  RATIO! IDEAL)-  1.18907 
LOSS  FACTOR  IN  ROTOR-  1.01550 
LOSS  FACTOR  IN  STATOR-  .33678 


•ROTOR  INLET*  *ROTOR  OUTLET*  *STATOR  OUTLET* 


TOTAL  PRESSURE 

2116.80 

2495.77 

2487.73 

STATIC  PRESSURE 

1821.38 

2038.83 

2123.98 

TOTAL  TEMPERATURE (GAS) 

518.7000 

545.0303 

545.0303 

STATIC  TEMPERATURE (GAS) 

436.3253 

515.5746 

521.8709 

STATIC  DENS I TV (GAS) 

.0687 

.0741 

.0763 

STATIC  DENSITY (MIXTURE) 

.0716 

.0772 

.0795 

AXIAL  UELOCITY 

482. 1263 

469.4052 

484.1839 

ABSOLUTE  UELOCITY 

500.3358 

594.7932 

527.4057 

RELATIUE  UELOCITY 

634.5454 

559.6606 

BLADE  SPEED 

636. 1474 

670.0514 

702.6172 

TANG.  COMP.  OF  ABS.  UEL. 

136.2004 

365.2913 

TANG.  COMP.  OF  REL.  UEL. 

439.3470 

304.7602 

ACOUSTIC  SPEED 

1070.9353 

1097.8131 

1097.4899 

ABSOLUTE  MACH  NUMBER 

.4678 

.5453 

.4806 

RELATIUE  MACH  NUMBER 

.6485 

.5131 

FLOW  COEFFICIENT 

.5001 

.4869 

.5022 

FLOW  AREA 

.0104 

.0099 

.0093 

ABSOLUTE  FLOW  ANGLE 

15.7749 

37.8901 

23.3618 

RELATIUE  FLOW  ANGLE 

46.0395 

32.9935 

INCIDENCE 

3.3195 

2.7401 

DEUIATION 

7.2035 

11.1718 
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1 


initial  flow  coefficient-  .50000  tlSTAGE- 

STAGE  PERFORMANCE  AFTER  INTER-STAGE  AD.AJSTMENT(JPERFN=2) 

STAGE  TOTAL  PRESSURE  RATIO-  1.17523 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.0S07E 
STAGE  ADIABATIC  EFFICIENCV-  .33053 


1  )\\ 

w 


••STAGE  INLET^^ 

••STAGE  OUTLET*^ 
(BEFORE  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

••STAGE  OUTLET** 
(AFTER  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

XU- 

.00000 

.00000 

.00003 

XU- 

.04000 

.04000 

.03997 

XUU- 

0 

0 

0 

XUT- 

.04000 

.04000 

.03997 

XAIR- 

.36000 

.36000 

.96000 

XMETAN- 

0 

0 

0 

XGAS 

.36000 

.36000 

.96003 

UMASS- 

.01431 

.01431 

.01430 

UUMASS- 

0 

0 

0 

UTMASS- 

.01431 

.01431 

.01430 

AMASS- 

.34340 

.34340 

.34340 

CHMASS- 

0 

0 

0 

UMASS- 

.00000 

.00000 

.00001 

GMASS- 

.34340 

.34340 

.34341 

TMASS- 

.35771 

.35771 

.35771 

US- 

.00000 

.00000 

.00004 

RHOA- 

.07643 

.07432 

.06829 

RHOM- 

.07160 

.07741 

. 07961 

RHOG- 

.06872 

.07432 

.07643 

TG- 

518.70000 

545.03032 

545.02935 

TU- 

513.70000 

519.12521 

519.13056 

TUH- 

513.70000 

0 

513.70000 

P= 

2116.80000 

2495.76975 

2487.72825 

TB- 

671.40656 

0 

679.39541 

TDEU- 

271.33506 

273.32309 

395.40315 

INITIflL  FLOW  COEFFICIEMT-  .50000  (STAGE^  2  ) 

STAGE  TOTAL  PRESSURE  RATIO  l.lFSSl 

STAGE  TOTAL  TEMPERATURE  RATIO*  1.05225 
STAGE  ADIABATIC  EFFICIENCY*  .30620 

STAGE  FLOW  COEFFICIEMT*  .SOI 
AXIAL  UELOCITY*  483.25 
ROTOR  SPEED*  964.04 

STAGE  TOTAL  PRESSURE  RATIO(ACTUAL)*  1.17581 
STAGE  TOTAL  PRESSURE  RATI0( IDEAL)*  1.1S610 

LOSS  FACTOR  IN  ROTOR*  .99123 

LOSS  FACTOR  IN  STATOR*  .99193 


•ROTOR  INLET*  *ROTOR  OUTLET*  *STATOR  OUTLET* 


TOTAL  PRESSURE 

2487.73 

2948.91 

2925.11 

STATIC  PRESSURE 

2124.70 

2286.71 

2506.57 

TOTAL  TEMPERATURE (GAS) 

54S.0293 

573.5085 

573.5085 

STATIC  TEMPERATURE (GAS) 

521.0067 

534.8122 

549.7050 

STATIC  DENSITY(GAS) 

.0764 

.0801 

.0855 

STATIC  DENSITY(MIXTURE) 

.0796 

.0835 

.0890 

AXIAL  UELOCITY 

483.2456 

509.8557 

500.4203 

ABSOLUTE  UELOCITY 

526.4003 

681.9413 

534.8508 

RELATIUE  UELOCITY 

690.9735 

567.3462 

BLADE  SPEED 

702.6172 

701.7250 

732.5063 

TANG.  COMP.  OF  ABS.  UEL. 

208.7366 

452.8698 

TANG.  COMP.  OF  REL.  UEL. 

493.8806 

248.8552 

ACOUSTIC  SPEED 

1096.4867 

1126.0773 

1126.2833 

ABSOLUTE  MACH  NUMBER 

.4801 

.6139 

.4749 

RELATIUE  MACH  NUMBER 

.6302 

.5107 

FLOW  COEFFICIENT 

.5013 

.5289 

.5191 

FLOW  AREA 

.0093 

.0084 

.0080 

ABSOLUTE  FLOW  ANGLE 

23.3618 

41.6125 

20.6723 

RELATIUE  FLOW  ANGLE 

45.6236 

26.0165 

INCIDENCE 

2.8836 

1.5025 

DEUIATION 

8.8465 

9.5423 
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INITIM.  FLOU  COETTICIEHT*  .50000  (ISTAGE*  8 


STAGE  PERFORMANCE  AFTER  INTER-STAGE  ADJUSTMENT CJPERFN-S) 

STAGE  TOTAL  PRESSURE  RATIQ>  1.17581 

STAGE  TOTAL  TEMPERATURE  RATIO*  1.05825 
STAGE  ADIABATIC  EFFICIENCY-  .30685 


**STAGE  INLET** 

**STAGE  OUTLET** 
(BEFORE  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

**STACE  OUTLET** 
(AFTER  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

XU- 

.00003 

.00003 

.00011 

XU- 

.03937 

.03997 

.03989 

XUM- 

0 

0 

0 

XWT- 

.03997 

.03997 

.03989 

XAIR- 

.96000 

.96000 

.96000 

XMETAN- 

0 

0 

0 

XGAS 

.96003 

.96003 

.96011 

UMASS- 

.01430 

.01430 

.01487 

UUNASS- 

0 

0 

0 

UTNASS- 

.01430 

.01430 

.01427 

ANASS- 

.34340 

.34340 

.34340 

CHNASS- 

0 

0 

0 

UMASS- 

.00001 

.00001 

.00004 

GNASS- 

.34341 

.34341 

.34344 

TMASS- 

.35771 

.35771 

.35771 

US- 

.00004 

.00004 

.00011 

RHOA- 

.08555 

.08043 

.07670 

RHOM- 

.07160 

.08377 

.08918 

RHOG- 

.07643 

.08043 

.08563 

TG- 

545.08935 

573.50850 

573.50651 

TH- 

519.13056 

584.60917 

524.68018 

TUH- 

513.70000 

0 

513.70000 

P= 

2487.78885 

2948.91283 

2985. 10631 

TB- 

679.39541 

0 

687.60811 

TDEH- 

395.40315 

398.30836 

418.76408 
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inniw.  FLOW  COEFFICIENT-  .SOOOO  (STAGE-  3  ) 

STAGE  TOTAL  PRESSURE  RATIO-  1.22461 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06S55 
STAGE  ADIABATIC  EFFICIENCV-  .SOTSS 

STAGE  FLOW  COEFFICIENT-  .518 
AXIAL  UELOCITY-  43S.52 
ROTOR  SPEED-  S64.Q4 

STAGE  TOTAL  PRESSURE  RATIOtACTUAL)-  1.22481 
STAGE  TOTAL  PRESSURE  RATIOdDEM.)-  1.24S02 
LOSS  FACTOR  IN  ROTOR-  .98303 

LOSS  FACTOR  IN  STATOR-  .98975 


•ROTOR  INLET*  *ROTOR  OUTLET*  *STATOR  OUTLET* 


TOTAL  PRESSURE 

2925,11 

3619.23 

3582.11 

STATIC  PRESSURE 

2507.36 

2750.82 

3093.78 

TOTAL  TEMPERATURE(GAS) 

573.5065 

611.0987 

611.0987 

STATIC  TEMPERATURE (GAS) 

548.8198 

566.7669 

587.0191 

STATIC  DENSITY(GAS) 

.0856 

.0910 

.0988 

STATIC  DENSITY(MIXTURE) 

.0892 

.0947 

.1029 

AXIAL  UELOCITY 

499.5199 

533.4818 

502.3745 

ABSOLUTE  UELOCITY 

533.8950 

730.2472 

538. 1919 

RELATIUE  UELOCITY 

738.5713 

581.5931 

BLADE  SPEED 

732.5063 

730.2758 

768. 1948 

TANG,  COMP,  OF  ABS.  UEL. 

188.4774 

498.6562 

TANG,  COMP.  OF  REL.  UEL. 

544.0289 

231.6196 

ACOUSTIC  SPEED 

1125.2535 

1163.7666 

1163.7592 

ABSOLUTE  MACH  NUMBER 

.4745 

.6386 

.4625 

RELATIUE  MACH  NUMBER 

.6564 

.5086 

FLOW  COEFFICIENT 

.5182 

.5534 

.5211 

FLOU  AREA 

.0080 

.0071 

.0069 

ABSOLUTE  FLOU  ANGLE 

20.6723 

43.0675 

21.0210 

RELATIUE  FLOU  ANGLE 

47.4423 

23.4688 

INCIDENCE 

5.8223 

-.2925 

DEUIATION 

10.3488 

10.5110 
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mrriM.  flou  coefficient-  .soooo  cistacc-  3  > 


STAGE  PERFDRHANCE  AFTER  INTER-STAGE  ADJUSTHENT(JPERFn-2) 

STAGE  TOTAL  PRESSURE  RATIO-  1.22461 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06S54 
STAGE  ADIABATIC  EFFICIENCY-  .90801 


••STAGE  lNLET«i 

••STAGE  OUTLET^^ 
(BEFORE  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

<H»STAGE  OUTLET** 
(AFTER  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

XU= 

.00011 

.00011 

.00023 

XM= 

.03989 

.03989 

.03977 

XMU- 

0 

0 

0 

XMT= 

.03989 

.03989 

.03977 

XAIR- 

.96000 

.96000 

.96000 

XfCTAN* 

0 

0 

0 

XGAS 

.96011 

.96011 

.96023 

UMASS- 

.01427 

.01427 

.01422 

MUNASS- 

0 

0 

0 

UTMASS- 

.01427 

.01427 

.01422 

ANASS- 

.34340 

.34340 

.34340 

CHNASS- 

0 

0 

0 

UMASS- 

.00004 

.00004 

.00008 

GMASS- 

.34344 

.34344 

.34348 

TMASS- 

.35771 

.35771 

.35771 

US- 

.00011 

.00011 

.00024 

RHOA- 

.09560 

.09133 

.08912 

RHON- 

.07160 

.09511 

.10303 

RHOG- 

.08563 

.09132 

.09894 

TG- 

573.50651 

611.09874 

611.09555 

TU- 

524.62018 

531.47995 

531.49766 

THU- 

513.70000 

0 

513.70000 

P=  1 

3325.10631 

3619.22732 

3^.11448 

TB- 

687.60211 

0 

698.15264 

TDEU- 

418.76408 

422.85381 

437.94261 
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iniTIflL  FUJU  CXFriClEMT-  .50000  (STAGE-  4  ) 

STAGE  TOTAL  PRESSURE  RATIO-  1.23734 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06S37 
STAGE  ADIABATIC  EFFICIENCY-  .30133 

STAGE  FLQU  COEFFICIENT-  .520 
AXIAL  UELXITY-  SOl.SS 
ROTOR  SPEED-  964.04 

STAGE  TOTAL  PRESSURE  RATIQ(ACTUAL)-  1.23734 
STAGE  TOTAL  PRESSURE  RAT1Q( IDEAL)-  1.26524 
LOSS  FACTOR  IN  ROTOR-  .98600 

LOSS  FACTOR  IN  STATOR-  .98874 


-ROTOR  INLET*  -ROTOR  OUTLET*  -STATOR  OUTLET- 


TOTAL  PRESSURE 

3582.11 

4482.78 

4432.28 

STATIC  PRESSURE 

3094.58 

3413.81 

3849.29 

TOTAL  TEMPERATURE (CAS) 

611.0955 

653.4876 

653.4876 

STATIC  TEMPERATURE (GAS) 

586.1317 

606.4676 

628.72S1 

STATIC  DEMSITV(GAS) 

.0989 

.1055 

.1147 

STATIC  DENSITY(MIXTURE) 

.1030 

.1099 

.1195 

AXIAL  UELOCITY 

501.5901 

536.1439 

506.6302 

ABSOLUTE  UELOCITY 

537.3515 

752.6615 

546.2044 

RELATIUE  UELKITY 

763.3644 

585.5788 

BLADE  SPEED 

768.1948 

763.7337 

798.0839 

TANG.  COMP.  OF  ABS.  UEL. 

192.7537 

528.2509 

TANG.  COMP.  OF  REL.  UEL. 

575.4411 

235.4829 

ACOUSTIC  SPEED 

1162.6546 

1204. 1692 

1204.1634 

ABSOLUTE  MACH  NUMBER 

.4622 

.6364 

.4536 

RELATIUE  MACH  NUMBER 

.6566 

.4951 

FLOW  COEFFICIENT 

.5203 

.5561 

.5255 

FLOU  AREA 

.0069 

.0061 

.0059 

ABSOLUTE  FLOU  ANGLE 

21.0210 

44.5751 

21.9444 

RELATIUE  FLOU  ANGLE 

48.9226 

23.7118 

INCIDENCE 

6.0726 

-.4249 

DEUIATIOM 

9.9518 

10.1344 
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W  INTTIM.  FLOU  COEFFICIENT-  .50000  (ISTMX-  4  ) 


STAGE  PERFORMANCE  AFTER  INTER-STAGE  ADJUSTMENT (JPERFN-2) 

STAGE  TOTAL  PRESSURE  RATIO-  1.23734 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06936 
STAGE  ADIABATIC  EFFICIENCY-  .90140 


••STAGE  INLET^^ 

••STAGE  OUTLET^^ 
(BEFORE  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

•<*STAGE  OUTLET** 
(AFTER  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

XU- 

.00023 

.00023 

.00043 

xu- 

.03977 

.03977 

.03957 

xuu- 

0 

0 

0 

XWT- 

.03977 

.03977 

.03957 

XAIR- 

.96000 

.96000 

.96000 

XMETAN- 

0 

0 

0 

XGAS 

.96023 

.96023 

.96043 

UNASS- 

.01422 

.01422 

.01416 

UUNASS- 

0 

0 

0 

WTMASS- 

.01422 

.01422 

.01416 

ANASS- 

.34340 

.34340 

.34340 

CHNASS- 

0 

0 

0 

UMASS- 

.00008 

.00008 

.00015 

GNASS- 

.34348 

.34348 

.34355 

TMASS- 

,35771 

.35771 

.35771 

US= 

.00024 

.00024 

.00044 

RHOA- 

.10987 

.10590 

.10390 

RHOM- 

.07160 

.11027 

.11964 

RHOG- 

.09894 

.10589 

.11491 

TG- 

611.09555 

653.48757 

653.48292 

TW- 

531.49766 

538.61927 

538.64525 

TWH- 

513.70000 

0 

513.70000 

P- 

3582.11448 

4482.77^ 

4432.28162 

TB- 

698. 15264 

0 

709.59620 

TDEU- 

437.94261 

442.65883 

455.51405 
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>■■»»«»»■■■■■■■>■  inrriflL  flow  coEFriciEUT-  .soooo  (stage-  s  ) 

STAGE  TOTAL  PRESSURE  RATIO-  1.S2S60 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06748 
STAGE  ADIABATIC  EFFICIENCY-  .89617 

STAGE  FLOU  COEFFICIENT-  .525 
AXIAL  UELOCITY-  505.96 
ROTOR  SPEED-  964.04 

STAGE  TOTAL  PRESSURE  RATIO(ACTUAL)-  1.22960 
STAGE  TOTAL  PRESSURE  RATIO( IDEAL)-  1.25805 
LOSS  FACTOR  IN  ROTOR-  .98167 

LOSS  FACTOR  IN  STATOR-  .98872 


•ROTOR  INLET*  •ROTOR  OUTLET*  *STATtJR  OUTLET* 


TOTAL  PRESSURE 

4432.28 

5512.15 

5449.96 

STATIC  PRESSURE 

3850.09 

4245.77 

4768.53 

TOTAL  TEMPERATURE(GAS) 

653.4829 

697.5827 

697.5827 

STATIC  TEMPERATURE(GAS) 

627.K27 

649.5072 

672.5710 

STATIC  DENSITY(GAS) 

.1149 

.1225 

.1329 

STATIC  DENSITV(MIXTURE) 

.11% 

.1275 

.1383 

AXIAL  UELOCITY 

505.9606 

532.9952 

505.9950 

ABSOLUTE  UELOCITY 

545.4824 

761.9382 

549.5787 

RELATIUE  UELOCITY 

780.4550 

585.9152 

BLADE  SPEED 

798.0839 

787.8235 

819.0509 

TANG.  CONP.  OF  ABS.  UEL. 

203.8501 

544.4869 

TANG.  CONP.  OF  REL.  UEL. 

594.2338 

243.3366 

ACOUSTIC  SPEED 

1202.9772 

1244.6349 

1245.1170 

ABSOLUTE  NACH  NUMBER 

.4534 

.6227 

.4414 

RELATIUE  NACH  NUMBER 

.8488 

.4789 

FLOW  COEFFICIENT 

.5248 

.5529 

.5249 

FLOU  AREA 

.0059 

.0053 

.0051 

ABSOLUTE  FLOU  ANGLE 

21.9444 

45.6111 

22.9819 

RELATIUE  FLOU  ANGLE 

49.5873 

24.5389 

INCIDENCE 

5.5873 

-.6989 

DEUIATION 

10.2089 

9.6619 
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IlilTIAL  FLQU  COEFFICIENT-  .50000  (ISTACE-  5  ) 


STAGE  PERFORMANCE  AFTER  INTER-STAGE  ADJUSTMENT (JPERFH-2) 

STAGE  TOTAL  PRESSURE  RATIO-  1.82960 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06747 
STAGE  ADIABATIC  EFFICIENCY-  .89626 


••STAGE  INLET^^ 

••STAGE  OJTLET^^ 
(BEFORE  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

*<»STAGE  OUTLET** 
(AFTER  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

XU= 

.00043 

.00043 

.00069 

XU- 

.03357 

.03957 

.03931 

XUM= 

0 

0 

0 

XHT- 

.03957 

.03S57 

.03931 

XAIR- 

.96000 

.96000 

.96000 

XMETAN- 

0 

0 

0 

XGAS 

.96043 

.96043 

.96069 

UMASS- 

.01416 

.01416 

.01406 

UUMASS- 

0 

0 

0 

UTMASS- 

.01416 

.01416 

.01406 

AMASS- 

.34340 

.34340 

.34340 

CHMASS- 

0 

0 

0 

UMASS- 

.00015 

.'‘0015 

.00025 

GMASS- 

.34355 

.34355 

.34365 

TMASS- 

.35771 

.35771 

.35771 

US= 

.00044 

.00044 

.00072 

RHOA- 

.12713 

.12295 

. 12090 

RHOM- 

.07160 

.12797 

.13846 

RHOG- 

.11491 

.12291 

.13303 

TG= 

653.48292 

697.58272 

697.57655 

TW= 

538.64525 

545.85731 

545.89207 

TWH- 

513.70000 

0 

513.70000 

P= 

4432.28162 

5512.15360 

5449.95512 

TB= 

709.59620 

0 

724.03629 

TDEH- 

455.51405 

452.07093 

463.59244 
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miTIM.  FUM  CaOTICIEHT-  .50000  (STAGE-  6  ) 


STAGE  TOTAL  PRESSURE  RATIO-  1.81485 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06335 
STAGE  ADIABATIC  EFFICIEMCV-  .83377 

STAGE  FLOW  COEFFICIEMT-  .524 
AXIAL  UELOCITV-  505.48 
ROTOR  SPEED-  S64.04 

STAGE  TOTAL  PRESSURE  RATIO< ACTUAL)-  1.21465 

STAGE  TOTAL  PRESSURE  RATIO( IDEAL)-  1.24176 

LOSS  FACTOR  IN  ROTOR*  .37277 

LOSS  FACTOR  IN  STATOR-  .39051 


•ROTOR  INLET*  -ROTOR  OUTLET*  -STATOR  OUTLET* 


TOTAL  PRESSURE 

5449.96 

6683.24 

6619.79 

STATIC  PRESSURE 

4769.14 

5228.99 

5656.21 

TOTAL  TEMPERATURE(GAS) 

697.5765 

741.7702 

741.7702 

STATIC  TEMPERATURE(GAS) 

671.6630 

693.7308 

710.6187 

STATIC  DENSITY(GAS) 

.1330 

.1412 

.1491 

STATIC  DENSITV(MIXTURE) 

.1385 

.1470 

.1552 

AXIAL  UELOCITV 

505.4755 

521.2389 

493.6021 

ABSOLUTE  UELOCITV 

549.0550 

762.7687 

614.2333 

RELATIUE  UELOCITV 

788.1246 

573.4053 

BLADE  SPEED 

819.0509 

795.8534 

.5000 

TANG.  COMP.  OF  ABS.  UEL. 

214.3734 

556.8897 

TANG.  COMP.  OF  REL.  UEL. 

604.6775 

238.9637 

ACOUSTIC  SPEED 

1243.8832 

1279.4619 

1279.4537 

ABSOLUTE  MACH  NUMBER 

.4414 

.6034 

.4801 

RELATIUE  MACH  NUMBER 

.6336 

.4536 

FLOW  COEFFICIENT 

.5243 

.5407 

.5149 

FLOW  AREA 

.0051 

.0047 

.0047 

ABSOLUTE  FLOW  ANGLE 

22.9819 

46.8939 

36.5240 

RELATIUE  FLOW  ANGLE 

50.1063 

24.6292 

INCIDENCE 

5.0363 

-1.8161 

DEUIATION 

10.1992 

7.2440 

imriM.  FLOU  aEFFXCIENT-  .50000  CISTAGE-  6  ) 


STAGE  PERFORMAfICE  AFTER  INTER-STAGE  ADJUSTMENT (JPERFH«a) 

STAGE  TOTAL  PRESSURE  RATIO-  1.214S5 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06334 
STAGE  ADIABATIC  EFFICIENCY-  .89388 


••STAGE  INLET<mi 

••STAGE  OUTLET^^ 
(BEFIKE  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

••STAGE  OUTLET«i 
(AFTER  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

XU= 

.00069 

.00069 

.00105 

XU= 

.03931 

.03931 

.03895 

XUU- 

0 

0 

0 

XHT- 

.03931 

.03931 

.03895 

XAIR- 

.96000 

.98000 

.96000 

XMETAN- 

0 

0 

0 

XGAS 

.96069 

.96069 

.96105 

UNASS- 

.01406 

.01406 

.01393 

UUNASS- 

0 

0 

0 

UTMASS- 

.01406 

.01406 

.01393 

ANASS- 

.34340 

.34340 

.34340 

CHMASS- 

0 

0 

0 

UNASS- 

.00025 

.00025 

.00038 

GMASS- 

.34365 

.34365 

.34377 

TMASS- 

.35771 

.35771 

.35771 

US- 

.00072 

.00072 

.00110 

RHOA- 

. 14644 

.14172 

. 13343 

RHOM- 

.07160 

.14744 

.15538 

RHOG= 

. 13303 

.14165 

. 14935 

TG= 

697.57655 

741.77019 

741.76245 

TU- 

545.89207 

552.83791 

552.88194 

TUM¬ 

513.70000 

0 

513.70000 

PS 

5449.95512 

6683.24452 

6619.79326 

TB- 

724.03629 

0. 

735.93466 

TDEH- 

463.59244 

468.68226 

479.11464 
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(XIEl^ftLL  PERFORfWfCE 
INITIAL  FLOW  COEFFICIENT*  .50000 

CORRECTED  SPEEO-511SO.O  1.000  FRACTIQM  OF  DEIGN  CORRECTED  SPEED 

INITIAL  UATER  CQNTENTCSHAU.  DROPLET)*  .040 
INITIAL  MATER  CONTENTCLMGE  DROPLET)*  0 
INITIAL  HATER  CONTENT(TOTAL)*  .040 
INITIAL  RELATIUE  HUNIDITY*  .0  PER  CENT 
INITIAL  HETHAHE  CONTENT*  0 

CONPRESSOR  INLET  TOTAL  TENPERATURE*  518.70 

CONPRESSOR  INLET  TOTAL  PRESSURE*  8116.80 

CORRECTED  NASS  FLOU  RATE  OF  HIXTURE*  .358(  3.^018) 

CORRECTED  HASS  FLOU  RATE  OF  CAS  PHASE  .343(  8.897) 

OUERALL  TOTAL  PRESSURE  RATI0*3.1873 

OUERALL  TOTAL  TENPERATURE  RATIQ*1.4300 

OUERALL  ADIABATIC  EFFICIENCY*  .8905 

OUERALL  TENPERATURE  RISE  OF  GAS  PHASE*  823.068 
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INPUT  DftTA 


NS(NUMBER  OF  STAGE)s  6 
UNIT=ENGLISH  UNIT 
IPERFM=2 

PERFORMANCE  AT  MEAN 


1 

2 

3 

4 

5 

6 

IGU 

RRHUB(I) 

.770 

1.035 

1.232 

1.378 

1.489 

1.572 

RC(I) 

.605 

.554 

.534 

.510 

.483 

.456 

RBLAOE(I) 

16.00 

20.00 

20.00 

25.00 

28.00 

32.00 

STAGERCn 

34.25 

29.96 

27.37 

28.30 

29.17 

29.75 

ST AGES (I) 

23.67 

25.62 

26.94 

28.41 

29.82 

38.99 

SRHUB(I) 

.323 

1.145 

1.311 

1.445 

1.538 

1.580 

.774 

seen 

.442 

.412 

.412 

.412 

.412 

.412 

SBLAOE(I) 

14.00 

26.00 

28.00 

32.00 

36.00 

30.00 

SIGUMR(I) 

1.052 

1.120 

1.037 

1.182 

1.211 

1.283 

SIGUMSCI) 

.640 

1.061 

1.093 

1.199 

1.311 

1.087 

GAPR(l) 

.125 

.125 

.125 

.125 

.125 

.125 

GAPS(I) 

.125 

.125 

.125 

.125 

.125 

.125 

RRTIP(I) 

2.16 

2.16 

2.16 

2.16 

2.16 

2.16 

SRTIP(I) 

2.16 

2.16 

2.16 

2.16 

2.16 

2.16 

2.16 

RT(1) 

2. 143 

2.151 

2.148 

2.143 

2.149 

2.147 

RM(I) 

1.426 

1.575 

1.642 

1.722 

1.789 

1.836 

RH(I) 

.781 

1.056 

1.252 

1.411 

1.533 

1.621 

ST(I) 

2.147 

2.138 

2.127 

2.123 

2.118 

2.100 

SM(I) 

1.502 

1.573 

1.637 

1.712 

1.766 

1.784 

SH(I) 

.334 

1.152 

1.318 

1.4S3 

1.548 

1.592 

BLXK(I) 

.983 

.976 

.967 

.949 

.923 

.902 

BLOCKS(I) 

.978 

.966 

.345 

.928 

.908 

.863 

BETIMR(I) 

42.72 

42.74 

41.62 

42.85 

44.00 

45.07 

BETSMRCI) 

25.79 

17.17 

13.12 

13.76 

14.33 

14.43 

BETIMS(I) 

35.15 

40.11 

43.36 

45.00 

46.31 

48.71 

0 

BETcriSCI) 

12.19 

11.13 

10.51 

11.81 

13.32 

29.28 

21.99 

PRISD(I) 

1.154 

1.165 

1.221 

1.237 

1.230 

1.215 

PR13D(I) 

1.152 

1.159 

1.213 

1.228 

1.221 

1.208 

ETARD(I) 

.966 

.966 

.368 

.965 

.962 

.954 
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. . .  data  . . . . 

FMF(FRACTIOM  OF  DESIGN  CORRECTED  SPEED)-1.000 

XDINC INITIAL  WATER  CONTENT  OF  SMALL  DROPLET)=  0 
XDDIN( INITIAL  WATER  CONTENT  OF  LARGE  DROPLET)=  .040 
RHUMID( INITIAL  RELATIUE  HUMIDITY)*  .00  PER  CENT 
XCH4( INITIAL  METHANE  CONTENT)*  0 

T0G( COMPRESSOR  INLET  TOTAL  TEMPRATURE  OF  GAS)*  518.70 
TOW(CONPRESSOR  INLET  TEMPERATURE  OF  DROPLRET)*  513.70 
P0(C0MPRE5S0R  INLET  TOTAL  PRESSURE)-  8116.80 

DINdNITIIL  DROPLET  DIAMETER  OF  SMALL  DROPLET)*  20.0 
DDIN( INITIAL  DROPLET  DIAMETER  OF  LARGE  DROPLET)*  600.0 

FND(DES1GN  ROTATIONAL  SPEED)*S1120.0 

OSMASS(DESIGN  MASS  FLOW  RATE)*  .37^ 

COMPRESSOR  INLET  TATAL  TEMPERATURE (GAS  PHASE)  518.70 

COMPRESSOR  INLET  TOTAL  PRESSURE*  2116.80 

PREBC PERCENT  OF  WATER  THAT  REBOUND  AFTER  IMPINGE  MENT)»  50.0  PERCENT 
ROTOR  SPEED-51120.0  RPM 

CORRECTED  ROTOR  SPEED*  51120.0  RPM(  lOO.OPER  CENT  OF  DESIGN  CORRECTED  SPEED) 
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I . .  DESIGM  POINT  INFORNftTlON  ••••mmmmm 

ihhhhi  compressor  INLET  ***** 

TOTAL  TEMPERATURE  AT  COMPRESSOR  INLET*  S18. 70000 
TOTAL  PRESSURE  AT  COMPRESSOR  INLET*  8116.80 
STATIC  TEMPERATURE  AT  CCR«>RESSOR  INLET*  496.88109 
STATIC  PRESSURE  AT  COMPRESSOR  INLET*  1813.73 
STATIC  DENSITV  AT  COMPRESSOR  INLET*  .06850 

ACOUSTIC  SPEED  AT  COMPRESSOR  INLET*1 098. 85914 
AXIAL  UELOCITV  AT  COMPRESSOR  INLET*  518.81873 
MACH  NUMBER  AT  COMPRESSOR  INLET*  .47500 
STREAMTUBE  AREA  AT  COMPRESSOR  INLET*  .01057 
FLOU  COEFFICIENT  AT  COMPI^SSOR  INLET*  .53817 
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DEsiCN  pairrr  iNFORMATiaN 


STAGE- 

1  ••••• 

TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

518.700 

541.148 

2116.800 

2442.787 

492.637 

508.269 

1767.579 

1961.576 

.067 

.072 

AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIIC 

UELOCITY 

TAN  COMP 

OF  ABS  UEL 

TAN  COMP 

OF  REL  UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

538.76531 

525.97105 

559.39838 

628.55682 

725.32398 

618.75550 

150.52734 

344.14838 

485.62003 

325.90306 

ROTOR 

SPEED 

ABS  MACH 
NUMBER 

REL  MACH 
NUMBER 

REL  TOTAL 
TEMP 

REL  TOTW. 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

638.147 

670.051 

.514 

.569 

.667 

.560 

536.454 

540.141 

2381.210 

5091,790 

ABS  FLOU 
ANGLE 

REL  FLOU 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOU 

COEFFICIENT 

ROTOR 

INLET 

15.61000 

42.03015 

.01036 

1.42600 

.55886 

ffOTOR  OUTLET  33.19714  31.78325  .00987  1.50200  .54559 

ST8GE  T0T8L  PRESSURE  RRTIO  ftT  DESIGN  POINT*  1.15200 

STAGE  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .96383 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT*  1.15400 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT*  .96800 

ROTOR  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT*  1.04328 
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»»■■■ 

STAGE- 

•*  DESIGN  POINT  INFORMATION  — ww 

2  MMHI 

mm  mmm 

TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

541.148 

566.141 

2438.554 

2840.915 

511.984 

522.316 

2008.852 

2142.394 

.074 

.077 

AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN  COMP 

OF  ABS  UEL 

TAN  COMP 

OF  REL  UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

549.21899 

581.1644/ 

591.88727 

725.94045 

730.88951 

639.44211 

220.67086 

435.01464 

481.94632 

266.71034 

ROTOR 

SPEED 

ABS  MACH 
NUMBER 

REL  MACH 
NUMBER 

REL  TOTAL 
TEMP 

REL  TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

702.617 

701.725. 

.534 

.648 

.659 

.571 

556.431 

556.331 

2688.136 

5751.007 

ABS  FLOU 
ANGLE 

REL  FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOU 

COEFFICIENT 

ROTOR 

ROTOR 

INLET 

OUTLET 

21.89000 

36.81569 

41.26765 

24.65154 

.00930 

.00841 

1.57500 

1.57300 

.56970 

.60285 

STAGE  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT«=  I.ISSOO 

STAGE  ADIABATIC  EFFICIEHCV  AT  DESIGN  POINT-  .33231 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT-  I.IBSOO 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT-  .96600 

ROTOR  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT-  1.04618 


DESIGM  POIMT  IMFORnsnOM  •«» 

STAGE*  3 

TOTAL  TOTW.  STATIC  STATIC  STATIC 

TEMP  PRESSURE  TEMP  PRESSURE  BENSITY 

ROTOR  INLET  566.141  2826.384  535.362  2323.868  .081 

ROTOR  OUTLET  600.462  3450.892  549.786  2533.049  .086 

AXIAL  ABSOLUTE  RELATIUE  TAN  COMP  TAN  COMP 

UELOCITY  UELOCITV  UELOCITV  OP  ABS  UEL  OF  REL  UEL 

ROTOR  INLET  574.81563  608.26663  784.29006  198.93541  533.57089 

l|H}TOR  OUTLET  614.43880  781.11343  662.59507  482.28950  247.98627 

ROTOR  ABS  MACH  REL  MACH  REL  TOTAL  REL  TOTAL 

SPEED  NUMBER  NUMBER  TEMP  PRESSURE 

ROTOR  INLET  732.506  .536  .692  .  586.533  3199.070 

ROTOR  OUTLET  730.276  .680  .577  586.263  6929.751 

ABS  FLOU  REL  FLOW  STREAMTUBE  FLOU 

ANGLE  ANGLE  AREA  RADIUS  COEFFICIENT 

ROTOR  INLET  IS. 09000  42.86892  .00803  1.64200  .59626 

ROTOR  OUTLET  38.12932:  21.97890  .00708  1.63700  .63736 


STAGE  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT-  1.21300 

STAGE  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT-  .93464 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT-  1.22100 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT-  .96800 

ROTOR  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT-  1.06062 


DESIGM  POIWT  IMFORtIftTTOM  **■■»■•■■■■■  mm 


«■■■■  STAGE"  4  "mmm 


TOTAL  TOTAL  STATIC 

TEMP  PRESSURE  TEMP 


STATIC  STATIC 

PRESSURE  1ENSITY 


ROTOR  INLET  500.462  3428.282 

ROTOR  OUTLET  633.381  4240.785 


S6S.06S  2839.388 

585.841  3118.959 


.094 

.100 


AXIAL  ABSOLUTE 

UELOCITV  UELOCITV 


RELATIUE  TAN  COMP  TAM  COMP 
UELOCITV  OF  ABS  UEL  OF  REL  UEL 


ROTOR  INLET  580.04590  614.89778 
ROTOR  OUTLET  619.63965:  803.61317 


809.54747  203.47020 

668.93304  511.70446 


564.72459 

252.02926 


ROTOR 

SPEEO 


ABS  MACH 
NUMBER 


REL  MACH 
NUMBER 


REL  TOTAL 
TEMP 


REL  TOTAL 
PRESSURE 


ROTOR  INLET  768.195  .526 

ROTOR  OUTLET  763.734  .678 


.692  623.519  3912.431 

.564  622.951  8231.914 


ABS  FLOU  REL  FLOU  STREAMTUBE 
ANGLE  ANGLE  AREA  RADIUS 


FLOU 

COEFFICIENT 


ROTOR  INLET  19.33000  44.23321 

ROTOR  OUTLET  39.55025;  22.13332 


.00692  1.72200  .60169 

.00607  1.71200  .64276 


STAGE  TOTAL  PRESSURE  RATIO  AT  lESICN  POINT"  1.22800 

STAGE  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT"  .93002 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT"  1.23700 

1T0R  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT"  .96500 

^OTOR  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT-  1.06481 
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razTfT  irroRmTiOH 


■■■—  STAGE*  S 


TOTAL 

TEMP 

TOTAL  STATIC 

PRESSURE  TENP 

STAHC 

PRESSURE 

STATIC 

DENSITY 

ROTOR  INLET 
ROTOR  outlet 

639.381 

679.732 

4809.930  606.962 

5178.214  625.197 

3506.755 

3857.244 

.108 

.116 

AXIAL 

UELXITV 

ABSOUiTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN  COMP 

OF  ABS  UEL 

TAN  COMP 

OF  REL  UEL 

ROTOR 

ROTOR 

INLET  S86.84149 
OUTLET  617.08868 

625.22167 

811.96444 

826.78513 

669.65381 

215.68308 

527.75042 

582.40082 

260.07304 

ROTOR 

SPEED 

ABS  NACH 
NUNBO? 

REL  NACH 
NUMBER 

REL  TOTAL 
TEMP 

REL  TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

798.084 

787.823 

.518 

.663 

.685 

.547 

663.653 

662.302 

4798.526 

9691.778 

ABS  FLOU 
ANCLE 

REL  FLOU 
ANGLE 

STREANTUBE 

AREA 

RADIUS 

FLOU 

COEFFICIENT 

ROTOR 

ROTOR 

INLET 

OUTLET 

20.18000 

40.53794 

44.7ie40  .00591 

22.85308  .00526 

1.78900 

1.76600 

.60873 

.64011 

STAGE  TOTAL  PRESSURE  RAHO  AT  KSIGN  POINT*  1.S2100 

STAGE  ADIABATIC  EFFICIENCV  AT  DESIGN  POINT*  .32580 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT*  1.23000 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT-  .96200 

ROTOR  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT*  1.06311 
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679.732 

720.259 


IGN  POIliT  IMFORfWTION 


ROTOR  iriL£T 
ROTOR  OUTLET 


RXIRL 

UELOCITY 

587. 19574 
603.39773 

ROTOR 

8PEED 

819.051 

795.853 

8BS  FLOU 
ANGLE 


ROTOR  INLET  21.15000 
ROTOR  OUTLET  41.93288 


TOTAL 

PRE8SLIRE 

5140.325 

6245.495 

ABSOLUTE 

UELOCITV 

629.60666 

811.09676 

ABS  MACH 
NIMBER 

.506 

.642 

I^L  FLOW 
AhCLE 

45.22772 

22.81494 


STATIC 

TEMP 

646.933 

665.989 

RELATIUE 

UELOCITY 

833.74045 

654.61329 

REL  MACH 
MUMBER 

.669 

.518 

STREAMTUBE 

AREA 

.00511 

.00467 


STATIC 

PRESSURE 

4318.954 

4736.291 

TAN  COMP 
OF  ABS  UEL 

227. 16890 
542.02320 

REL  TOTAL 
TEMP 

704.449 

701.350 


RADIUS 

1; 83600 
1.78400 


/ 

STAGE  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINTS  1.20800 

STAGE  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT^^  .92385 

ROTOR  TOTAL  PRESSURE  RATIO  AT  DESIGN  POINT-  1.21500 

ROTOR  ADIABATIC  EFFICIENCY  AT  DESIGN  POINT-  .95400 

ROTOR  TOTAL  TEMPERATURE  RATIO  AT  DESIGN  POINT-  1.05962 


STATIC 

DENSITY 

.125 

.133 

TAN  COMP 
OF  REL  UEL 

591.88199 

253.83017 

REL  TOn^ 
PRESSUffi 

5829.034 

10970.182 

FLOU  \ 
COEFFICIENT 

.60910 

.6^1  \ 
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hhmmhmmmmmmmhm*  DESIGN  POINT  IMTORUNTIOH  •*«mmmhhmhh 
WMHHMHHNI  OUERALL  PERFOMWICE  AT  DESIGN  POINT  tnutm 
CONPRESSOR  INLET  TOTAL  TO«KATlJRE-  518.70 
COMPRESSOR  INLET  TOTAL  PRESSURE-  2116.80 
CQRRETTEO  HASS  f\J0U  RATE*  3.168 
OUERALL  TOTAL  PRESSURE  RATI0-2.S334 
OUERALL  TOTAL  TEMPERATURE  RATIO-1.3886 
OUERALL  ADIABATIC  EFFICIETCV-  .9223 
OUERALL  TEMPERATURE  RISE-  201.559 


1 

2 

3 

4 

5 

6 

lOU 

BETISR(I) 

42.03 

41.27  42.97  44.23  44.78 

45.23 

BET2SR(I) 

31.78 

24.65  21.98 

22.13 

22.85 

22.81 

AINCSR(I) 

-.69 

-1.47 

1.25 

1.38 

.78 

.16 

ADEUSR(I) 

S.99 

7.48 

8.86 

8.37 

8.52 

8.38 

BETlSS(l) 

33.20 

36.82 

38.13 

39.55  40.54 

41.93 

BET2SS(I) 

21.89 

19.09 

19.33 

20.18 

21.15 

34.86 

15.61 

AINCSS(I) 

-1.95 

-3.29 

-5.23 

-5.45 

-5.77 

-6.78 

AOEUSS(I) 

9.70 

7.96 

8.82 

8.37 

7.83 

5.58 

TDd) 

S18.7 

541.1 

566.1 

600.5  639.4 

679.7 

OMEGSCI) 

.009 

.021 

.025 

.028 

.029 

.024 

OMEGR(I) 

.020 

.021 

.024 

.028 

.030 

.036 
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. .  IMITIAL  FUJU  COEFFICIENT-  .50000  (STAGE-  1  ) 

STAGE  TOTAL  PRESSURE  RATIO-  1.1G7S0 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.05044 
STAGE  ADIABATIC  EFFICIENCY-  .89938 

STAGE  FLOW  COEFFICIENT-  .500 
AXIAL  UELOCITV-  488.10 
ROTOR  SPEED-  964.04 

STAGE  TOTAL  PRESSURE  RATIO(ACTUAL)-  1.16750 
STAGE  TOTAL  PRESSURE  RATIOCIDEAL)-  1.18781 
LOSS  FACTOR  IN  ROTOR-  1.01167 
LOSS  FACTOR  IN  STATOR-  .39536 


•ROTOR  INLET*  -ROTOR  OUTLET*  -STATOR  OUTLET* 


TOTAL  PRESSURE 

8116.80 

8483.73 

8478.81 

STATIC  PRESSURE 

1888.08 

8087.51 

8105.98 

TOTAL  TEMPERATURE(CAS) 

518.7000 

544.8657 

544.8657 

STATIC  TEMPERATURE(GAS) 

496.9885 

515.3151 

581.3908 

STATIC  DENSITY(GAS) 

.0687 

.0737 

.0757 

STATIC  DENSITY(MIXTURE) 

.0716 

.0768 

.0789 

AXIAL  UELOCITV 

488.0985 

471.7651 

487.8474 

ABSOLUTE  UELOCITV 

500.9664 

595.7508 

530.9988 

RELATIUE  UELOCITV 

694.5315 

568.4474 

BLADE  SPEED 

636.1474 

670.0514 

708.6178 

TANG.  COMP.  OF  ABS.  UEL. 

136.1984 

363.8085 

TANG.  COMP.  OF  REL.  UEL. 

499.9550 

306.8489 

ACOUSTIC  SPEED 

1070.9380 

1090.5707 

1096.9841 

ABSOLUTE  MACH  NUMBER 

.4678 

.5463 

.4840 

RELATIUE  MACH  NUMBER 

.6485 

.5157 

FLOW  COEFFICIENT 

.5001 

.4894 

.5060 

FLOW  AREA 

.0104 

.0099 

.0093 

ABSOLUTE  FLOW  ANGLE 

15.7749 

37.6381 

83.8615 

RELATIUE  FLOW  ANGLE 

46.0417 

38.9893 

INCIDENCE 

3.3817 

8.4881 

DEUIATION 

7.19S3 

11.0715 
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Ilimm.  FLQM  COEFFICIENT-  .50000  (ISTAGE- 


STAGE  PERFORMANCE  AFTER  INTER-STAGE  ADJUSTMENT (JPERFM-S) 

STAGE  TOTAL  PRESSURE  RATIO-  1.16730 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.05044 
STAGE  ADIABATIC  EFFICIENCY-  .83332 


••STAGE  INLET^^ 

••STAGE  OUTLET^^ 
(BEFORE  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

**STA(X  OUTLET** 
(AFTER  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

XU- 

.00000 

.00000 

.00000 

XW- 

0 

0 

.01801 

XUU- 

.04000 

.04000 

.02133 

XWT- 

.04000 

.04000 

.04000 

XAIR- 

.36000 

.36000 

.36000 

XMETAN- 

0 

0 

0 

XGAS 

.36000 

.36000 

.36000 

UMASS- 

0 

0 

.00644 

UUMASS- 

.01431 

.01431 

.00786 

UTMASS- 

.01431 

.01431 

.01431 

AMASS- 

.34340 

.34340 

.34340 

CHMASS- 

0 

0 

0 

UMASS- 

.00000 

.00000 

.00000 

GNASS- 

.34340 

.34340 

.34340 

TMASS- 

.35771 

.35771 

.35771 

US- 

.00000 

.00000 

.00000 

RHOA- 

.07643 

.07^ 

.06767 

RHOn- 

.07160 

.07702 

.07302 

RHOG- 

.06872 

.07335 

.07586 

TG- 

518.70000 

544.86572 

544.86571 

TW- 

513.70000 

513.70000 

513.70000 

TUU- 

513.70000 

513.70000 

513.70012 

P= 

2116.80000 

2483.73050 

2472.21005 

TB- 

671.40656 

0 

673.08227 

TDEM- 

271.33506 

273.28391 

333.24784 
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. . .  IMITIAL  FLOU  CtEFFICIEMT-  .50000  (STAGE-  2  ) 

STAGE  TOTAL  PRESSURE  RATIO-  1.1B781 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.05175 
STAGE  ADIABATIC  EFPICIENCV-  .87555 

STAGE  FLOW  COEFFICIENT-  .505 
AXIAL  UELOCITY-  486.86 
ROTOR  SPEED-  964.04 

STAGE  TOTAL  PRESSURE  RATIOC ACTUAL)-  1.16781 
STAGE  TOTAL  PRESSURE  RATIO( IDEAL)-  1.19311 
LOSS  FACTOR  IN  ROTOR-  .98822 

LOSS  FACTOR  IN  STATOR-  .98982 


•ROTOR  INLET*  *ROTOR  OUTLET*  *STATOR  OUTLET* 


TOTAL  PRESSURE 

2472.21 

2916.76 

2887.07 

STATIC  PRESSURE 

2106.74 

2255.26 

2462.37 

TOTAL  TEMPERATURE(GAS) 

544.8657 

573.0631 

573.0631 

STATIC  TEMPERATURE (GAS) 

520.5178 

533.9732 

548.5689 

STATIC  DENSITYCGAS) 

.0759 

.0792 

.0841 

STATIC  DENSITV(MIXTURE) 

.0790 

.0825 

.0876 

AXIAL  UELOCITY 

486.8556 

516.0982 

508.2930 

ABSOLUTE  UELOCITY 

529.9329 

685.3880 

542.5448 

RELATIUE  UELOCITY 

693.1121 

573.7782 

BLADE  SPEED 

702.6172 

701.7250 

732.5063 

TANG.  COMP.  OF  ABS.  UEL. 

209.2856 

450.9981 

TANG.  COMP.  OF  REL.  UEL. 

493.3315 

250.7269 

ACOUSTIC  SPEED 

1095.9433 

1110.0181 

1125.0890 

ABSOLUTE  MACH  NUMBER 

.4835 

.6175 

.4822 

RELATIUE  MACH  NUMBER 

.6324 

.5169 

FLOW  COEFFICIENT 

.5050 

.5354 

.5273 

FLOH  AREA 

.0093 

.0084 

.0080 

ABSOLUTE  FLOU  ANGLE 

23.2615 

41.1489 

20.4892 

RELATIUE  FLOW  ANGLE 

45.3785 

25.9111 

INCIDENCE 

2.6385 

1.0389 

DEUIATION 

8.7411 

9.3392 
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itlTTXM.  FLOW  CDEFFICIEMT"  .50000  (ISTAGE* 
STAGE  PERFORMANCE  AFTER  INTER-STAGE  ADJUSTMENT (JPERFM-3) 

stage  total  pressure  ratio.  1.16781 

stage  total  temperature  ratio.  1.05175 

STAGE  ADIABATIC  EFFICIENCV.  .87561 


••STAGE  INLET^^ 


XMETAN* 


UUMASS. 

UTNASS. 

AMASS. 

CHMASS. 

UMASS. 

gmass. 

TMASS. 

MS« 

RHOA. 

RHON. 

RHOG. 

TG« 

TW« 

TWU. 

P.  £ 

TB= 

TDEW» 


»  .01431 

.34340 

“  0 
.00000 
.34340 
.35771 
.00000 
.08504 
.07160 
.07586 
544.86571 
513.70000 
513.70012 
2472.21005 
675.08227 
333.24784 


••STAGE  OJTLET*** 
(BEFORE  INTER¬ 
STAGE  AOJUST- 


.01431 

.34340 

0 

.00000 

.34340 

.^771 

.00000 

.07845 

.08276 

.07845 

573.06306 

518.14631 

513.70012 

2816.76358 

0 

341.32476 


•^►STACE  OUTLET** 
(AFTER  INTER¬ 
STAGE  AOJUST- 


0 

12 
875 
.00452 
.01427 
.343^ 

.OOOC 
.34344 
.35771 
.00012 
.07525 
.08778 
.08428 
573.06071 
518.16888 
513.70036 
2887.07247 
686.83158 
418.65418 


INITIAL  FLOU  CtEFFICIENT-  .50000  (STAGE-  3  ) 


STAGE  TOTAL  PRESSURE  RAHO-  1.S1691 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06493 
STAGE  ADIABATIC  EFTICIENCV-  .88738 

STAGE  FLOU  COEFFICIENT-  .586 
AXIAL  UELOCITY-  507.38 
ROTOR  SPEED-  964.04 

STAGE  TOTAL  PRESSURE  RATIO(ACTUAL)-  L.81691 
STAGE  TOTAL  PRESSURE  RATIOCIDEAL)-  1.84647 
LOSS  FACTOR  IN  ROTOR-  .38667 

•OSS  FACTOR  IN  STATOR-  .98789 


•ROTOR  INLET#  *ROTOR  OUTLET* 


TOTAL  PRESSURE 
STATIC  PRESSURE 
TOTAL  TEMPERATURE (GAS) 
STATIC  TEMPERATURE (GAS) 
STATIC  DENSITY(GAS) 
STATIC  DENSITY( MIXTURE) 

AXIAL  UELOCITY 
ABSOLUTE  UELOCITY 
RELATIUE  UELOCITY 
BLADE  SPEED 

TANG.  COMP.  OF  ABS.  UEL. 
TANG.  COMP.  OF  REL.  UEL. 
ACOUSTIC  SPEED 
ABSOLUTE  MACH  NUMBER 
RELATIUE  MACH  NUMBER 

FLOW  COEFFICIENT 
FLOU  AREA 

ABSOLUTE  FLOU  ANGLE 
RELATIUE  FLOU  ANGLE 
INCIDENCE 
DEUIATION 


8887.07 

3556.35 

8463. 17 

8688.47 

573.0607 

610.8670 

547.6584 

565.1550 

.0843 

.0898 

.0878 

.0989 

507.3886 

544.8751 

541.5777 

736.6414 

743.8430 

598.39S3 

738.5063 

730.8758 

189.3981 

496.3988 

543.1148 

833.8835 

1184.070S 

1141.8852 

.4818 

.6451 

.6618 

.5188 

.5863 

.5646 

.0080 

.0071 

80.4698 

48.3656 

46.9481 

83.8540 

5.3881 

-.9944 

10.1340 

•STATOR  OUTLET# 
3513.89 
3014.69 
610.8670 
585.1747 
.0966 
.1006 

513.9069 

549.3895 

768. 1948 


1161.9377 

.4788 


.5331 

.0069 

80.7047 


10.1947 
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INITIAL  FLOU  COEFFICIENT-  .50000  (ISTAGE-  3  ) 


STAGE  PERFORNANCE  AFTER  INTER-STAGE  ADJUSTMENT (JPERFT1-3) 

STAGE  TOTAL  PRESSURE  RATIO-  1.21691 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06490 

STAGE  ADIABATIC  EFFICIENCV-  .88760 

••STAGE  INLET^^ 

••STAGE  OUTLET*^ 
(BEFORE  INTER-  • 
STAGE  ADJUST¬ 
MENT) 

••STAGE  GUTLET<mi 
(AFTER  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

XU- 

.00012 

.00012 

.00077 

XU- 

.02726 

.02726 

.03181 

XUU- 

.01262 

.01262 

.00743 

XWT- 

.03988 

.03988 

.03923 

XAIR- 

.96000 

.96000 

.96000 

XMETAN- 

0 

0 

0 

XGAS 

.96012 

.96012 

.96077 

UMASS- 

.00975 

.00975 

.01138 

MUNASS- 

.00452 

.00452 

.00266 

UTHASS- 

.01427 

.01427 

.01403 

AMASS- 

.34340 

.34340 

.34340 

CHNASS- 

0 

0 

0 

UMASS- 

.00004 

.00004 

.00027 

GMASS- 

.34344 

.34344 

.34367 

TMASS- 

.35771 

.35771 

.35771 

MS- 

.00012 

.00012 

.00080 

RHOA= 

.09443 

.08952 

.08667 

RHOM-  • 

.07160 

.09323 

.10063 

RHOG- 

.08429 

.08951 

.09668 

TG- 

573.06071 

610.26699 

610.25190 

TW- 

519. 16899 

526.02007 

526.13187 

TUM- 

513.70036 

513.70036 

513.70075 

P=  2887.07247 

3556.34709 

3513.29461 

TB- 

686.93158 

0 

697. 12854 

TDEU- 

419.65418 

423.67496 

463.62629 

3T4 


iwwwwBWi  irtniflL  FUOW  CDEFFICIENT-  .50000  (STAGE-  4  ) 

STAGE  TOTAL  PRESSURE  RATIO-  1.23867 

STAGE  TOTAL  TEHPERATURE  RATIO-  1.06871 
STAGE  ADIABATIC  EFTICIErCY-  .S07S1 

STAGE  FLOU  COEFFICIENT-  .533 
AXIAL  UELOCITV-  513.61 
ROTOR  SPEED-  964.04 

STAGE  TOTAL  PRESSURE  RATIO(ACTUAL)-  1.23867 
STAGE  TOTAL  PRESSURE  RATI0( IDEAL)-  1.26254 
LOSS  FACTOR  IN  ROTOR-  .38671 

LOSS  FACTOR  IN  STATOR-  .98960 


•ROTOR  INLET*  -ROTOR  OUTLET*  *STATDR  OUTLET* 


TOTAL  PRESSURE 

3513.29 

4390.45 

4344.80 

STATIC  PRESSURE 

3014.95 

3322.28 

3749.71 

TOTAL  TENPERATUREICAS) 

610.2519 

652.1841 

652.1841 

STATIC  TEfffERATURECGAS) 

584.2131 

604.1817 

626.3816 

STATIC  DENSITY(GAS) 

.0967 

.1030 

.1121 

STATIC  DENSITY(HIXTUR£) 

.1006 

.1072 

.1167 

AXIAL  UELOCITY 

513.6087 

549.3247 

518.6059 

ABSOLUTE  UELOCITY 

549.0705 

760.6511 

557.6792 

RELATIUE  UELOCITY 

770.2922 

598.5017 

BLADE  SPEED 

768.1948 

763.7337 

798.0839 

TANG.  COMP.  OF  ABS.  UEL. 

194.1243 

526.1487 

TANG.  CONP.  OF  REL.  UEL. 

574.0699 

237.5850 

ACOUSTIC  SPEED 

1161.2398 

1202.4310 

1202.4238 

ABSOLUTE  NACH  NUNBER 

.4728 

.6441 

.4638 

RELATIUE  NACH  NUNBER 

.6633 

.5068 

FLOW  COEFFICIENT 

.5328 

.5698 

.5380 

FLOU  AREA 

.0069 

.0061 

.0059 

ABSOLUTE  FLOU  ANGLE 

20.7047 

43.7655 

21.5751 

RELATIUE  FLOU  ANCLE 

48.1816 

23.3887 

INCIDENCE 

5.3316 

-1.2345 

DEUIATION 

9.6287 

9.7651 
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inrriAL  flow  ctJBTiciEifr-  .soooo  cistace-  4  > 


STAGE 

PERFORMANCE  AFTER 

INTER-STAGE  ADJUSTMENT (JPERFM-2) 

STAGE 

TOTAL  PRESSURE  RATIO^  1.23667 

STAGE 

TOTAL  TEMPERATURE 

RATIO-  1.06864 

STAGE 

ADIABATIC  EFFICIENCY-  .908% 

••STAGE  INLET^^ 

••STAGE  OUTLET^^ 

•<*STAGE  OUTLETS* 

(BEFORE  INTER¬ 

(AFTER  INTER¬ 

STAGE  ADJUST¬ 

STAGE  ADJUST¬ 

MENT) 

MENT) 

xy= 

.00077 

.00077 

.00248 

xu- 

.03181 

.03181 

.03307 

XUU3 

.00743 

.00743 

.00445 

XWT= 

.03923 

.03%3 

.03752 

XAIR> 

.96000 

.96000 

.96000 

XMETAIi=  0 

0 

0 

XGAS 

.96077 

.96077 

.96248 

UnASS= 

.01138 

.01138 

.01183 

UUMASS 

s  .00266 

.00266 

.00159 

UTMASS 

.01403 

.01403 

.01342 

AnASS= 

.34340 

.34340 

.34340 

CHMASS 

=  0 

0 

0 

UMASS= 

.00027 

.00027 

.00089 

GMASS- 

.34367 

.34367 

.34429 

TMASS= 

.3S771 

.35771 

.35771 

WS= 

.00080 

.00080 

.00259 

RHOA* 

. 10791 

.10346 

.10094 

RHOH“ 

.07160 

.10763 

.11655 

RHOG- 

.09668 

.10341 

.11218 

TG= 

610.25190 

652.18409 

652.14134 

TM= 

526.13187 

533.30984 

533.59527 

TUU» 

513.70075 

513.70036 

513.70137 

P= 

3513.29461 

4390.44609 

4344.79698 

TB- 

697.12854 

0 

708.50906 

TDEH= 

463.62629 

468.88156 

498.37453 

. . —  IJimflL  FLOU  COEFnCIENT-  .50000  (STAGE-  5  ) 

STAGE  TOTAL  PRESSURE  RATIO-  1.2S8SS 

STAGE  TOTAL  TEHPERATURE  RATIO-  1.06675 
STAGE  ADIABATIC  EFFICIENCY-  .30336 

STAGE  FLOU  COEFFICIENT-  .539 
AXIAL  UELKITY-  SIS. 37 
ROTOR  SPEED-  964.04 

STAGE  TOTAL  PRESSURE  RAnO(ACTUAL)«  1.28898 
STAGE  TOTAL  PRESSURE  RAT10( IDEAL)-  1.25515 
LOSS  FACTOR  IN  ROTOR-  .98250 
LOSS  FACTOR  IN  STATOR-  .98967 


-ROTOR  INLET-  -ROTOR  OUTLET-  -STATOR  OUTLET- 


TOTAL  PRESSURE 

4344.80 

5395.45 

5339.72 

STATIC  PRESSURE 

3748.75 

4131.68 

4643.21 

TOTAL  TENPERATURE(CAS) 

652.1413 

695.6709 

695.6709 

STATIC  TENPERATIME(GAS) 

625.346S 

646.6178 

669. 5503 

STATIC  OENSITY(CAS) 

.1122 

.1196 

.1298 

STATIC  DENSITYCHIXTURE) 

.1165 

.1242 

.1348 

AXIAL  UELOCITY 

519.3675 

547.1502 

519.0957 

ABSOLUTE  UELOCITY 

558.4980 

770.3315 

562.1291 

RELATIUE  UELOCITY 

788.0677 

599.7321 

BLADE  SPEED 

798.0839 

787.8235 

819.0509 

TANG.  COHP.  OF  ABS.  (CL. 

205.3714 

542.2521 

TANG.  CONP.  OF  REL.  UEL. 

592.7125 

245.5713 

ACOUSTIC  SPEED 

1202.5460 

1243.7812 

1244.3279 

ABSOLUTE  NACH  NUNBER 

.4644 

.6300 

.4518 

RELATIUE  NACH  NUNBER 

.6553 

.4904 

FLOU  COEFFICIENT 

.5387 

.5676 

.5385 

FLOU  AREA 

.0059 

.0053 

.0051 

ABSOLUTE  FLOU  ANGLE 

21.5751 

44.7424 

22.5764 

RELATIUE  FLOU  ANGLE 

48.7734 

24.1714 

INCIDENCE 

4.7734 

-1.5676 

DEUIATION 

9.8414 

9.2564 
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miTIAL  FLOU  CQEFFXCIDfT-  .50000  (ISTflCE-  5  ) 


STAGE  PERFORMANCE  AFTER 

IMTER-STAGE  ADJUSTMENT (JPERFM-2) 

STAGE  TOTAL  PRESSURE  RATIO^  1.2^39 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06664 

STAGE  ADIABATIC  EFFICIENCY-  .90448 

••STAGE  INLET^^ 

••STAGE  OUTLET^* 

*<*STAGE  OUTLET** 

(BEFORE  INTER¬ 

(AFTER  INTER¬ 

STAGE  ADJUST¬ 

STAGE  ADJUST¬ 

MENT) 

MENT) 

XU- 

.00248 

.00248 

.00559 

XU- 

.03307 

.03307 

.03080 

XUU- 

.00445 

.00445 

0 

XUT- 

.03752 

.03752 

.03080 

XAIR- 

.96000 

.96000 

.96360 

XMETAN- 

0 

0 

0 

XGAS 

.96248 

.96248 

.96920 

UMASS- 

.01183 

.01183 

.01098 

UUMASS- 

.00159 

.00159 

0 

UTMASS- 

.01342 

.01342 

.01098 

AMASS- 

.34340 

.34340 

.34340 

CHMASS- 

0 

0 

0 

UMASS- 

.00089 

.00089 

.00199 

GMASS- 

.34429 

.344SS 

.34539 

TMASS- 

.35771 

.35771 

.35637 

US- 

.00259 

.002» 

.00580 

RHOA- 

. 12487 

.12017 

.11734 

RHOM- 

.07160 

.12465 

.13382 

RHOG- 

.11218 

.11998 

.12971 

TG- 

652.14134 

695.67091 

695.59860 

TH- 

533.5S527 

540.88803 

541.37489 

THU- 

513.70137 

513.70036 

513.70155 

P-  4344.79698 

5395.45042 

5339.72029 

TB- 

708.50906 

0 

722.80827 

TDEU- 

498.37453 

496.9^7 

520.46557 
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INITIM.  FLOI  COEFFICIENT-  .50000  (STAGE-  6  ) 


STAGE  TOTAL  PRESSURE  RATIO-  1.31378 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06246 
STAGE  ADIABATIC  EFFICIENCY-  .30205 

STAGE  FLOU  COEFFICIENT-  .540 
AXIAL  UELKITY-  521.03 
ROTOR  SPEED-  S64.04 

STAGE  TOTAL  PRESSURE  RATIO(ACT\JAL)-  1.21378 
STAGE  TOTAL  PRESSURE  RATI0( IDEAL)-  1.23841 
LOSS  FACTOR  IN  ROTOR-  .37381 

LOSS  FACTOR  IN  STATOR-  .SS141 


•ROTOR  INLET*  -ROTOR  OUTLET*  *STATOR  OUTLET* 


TOTAL  PRESSURE 

5333.72 

6537.40 

6481.27 

STATIC  PRESSURE 

4643.05 

5093.62 

5499.02 

TOTAL  TEMPERATURE (GAS) 

6S5.5S86 

739.0448 

739.0448 

STATIC  TEHPERATURE(GAS) 

668.5834 

690.0533 

706.4154 

STATIC  DENSITV(GAS) 

.1237 

.1379 

.1454 

STATIC  DENSITY(MIXTURE) 

.1338 

.1422 

.1500 

AXIAL  UELOCITV 

521. 0231 

536.5871 

508.8163 

ABSOLUTE  UELOCITV 

564.2700 

771.9356 

629.9781 

RELATIUE  UELOCITV 

736.4797 

588.1877 

BLADE  SPEED 

819.050S 

795.8534 

.5000 

TANG.  COMP.  OF  ABS.  UEL. 

216.631S 

554.9404 

TANG.  COMP.  OF  REL.  UEL. 

602.4190 

240.9130 

ACOUSTIC  SPEED 

1248.0901 

1282.9307 

1282.9214 

ABSOLUTE  MACH  NUMBER 

.4521 

.6088 

.4910 

RELATIUE  MACH  NUMBER 

.6382 

.4639 

FLOW  COEFFICIENT 

.5405 

.5566 

.5307 

FLOU  AREA 

.0051 

.0047 

.0047 

ABSOLUTE  FLOU  ANGLE 

22.5764 

45.9633 

36.1308 

RELATIUE  FLOU  ANCLE 

49.1436 

24.1788 

INCIDENCE 

4.0736 

-2.7467 

DEUIATIOM 

9.7488 

6.8508 

HirriM.  FLOH  COEFFICIENT-  .50000  (ISTAGE-  6  ) 


STAGE  PERFORNAIiCE  AFTER  INTER-STAGE  AOJUSTNENTCJPERFN-a) 

STfCE  TOTAL  PRESSURE  RATIO-  1.213F8 

STAGE  TOTAL  TEMPERATURE  RATIO-  1.06819 

STAGE  ADIABATIC  EFFICIENCV-  .90445 

••STAGE  IMLET^^ 

••STAGE  OUTLET^* 
(BEFORE  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

<N^AGE  OUTLET*^ 
(AFTER  INTER¬ 
STAGE  ADJUST¬ 
MENT) 

XU- 

.00559 

.00559 

.01742 

XU- 

.03080 

.03080 

.01898 

XUU- 

0 

0 

0 

XWT- 

.03080 

.03080 

.01898 

XAIR- 

.96360 

.96360 

.96360 

XMETAN- 

0 

0 

0 

XGAS 

.96920 

.96980 

.98102 

MMASS- 

.01096 

.01098 

.00676 

UUHASS- 

0 

0 

0 

UTMASS- 

.01098 

.01098 

.00676 

AMASS- 

.34340 

.34340 

.34340 

CHHASS- 

0 

0 

0 

UMASS- 

.00199 

.00199 

.00621 

CMASS- 

.34539 

.34539 

.34961 

TMASS- 

.35637 

.35637 

.35637 

US- 

.00580 

.00580 

.01807 

RHDA- 

.14388 

.13869 

.18770 

RHOM- 

.07160 

.14859 

.14690 

RHOG- 

.18971 

.13821 

.14418 

TG- 

695.59860 

739.04479 

738.85892 

TU- 

541.37489 

548.44179 

549.82046 

TUU- 

513.70155 

513.70036 

513.70155 

P«  5339.72089 

6537.39986 

6481.26579 

TB- 

788.80827 

0 

734.62173 

TOEU- 

580.46557 

586.83752 

564.70813 
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■WWW  OUERflLL  PERFORHWCE  ■■■■■■■■■ 

INITIAL  FLOU  COeFFICIENT-  .50000 

CORRECTEB  SPEEI^liaO.O  1.000  FRACTIGN  OF  KIGN  COWECTED  SPEED 

INITIAL  MATER  CQNTENTtSNALL  DROPLET)-  0 
INITIAL  MATER  CQNTENTCLARGE  DROPLET)-  .040 
INITIAL  MATER  CONTENT (TOTAL)-  .040 
INITIAL  RELATIUE  HUHIDITV-  .0  PER  CENT 
INITIAL  HETHANE  CONTENT-  0 

COMPRESSOR  INLET  TOTAL  TEMPERATURE-  518.70 

COMPRESSOR  INLET  TOTAL  PRESSURE-  2118.80 

CORRECTED  MASS  FLOM  RATE  OF  MI>aURE-  .358(  3.018) 

CORRECTED  MASS  FLOM  RATE  OF  CAS  PHASE  .343(  2.8S7) 

OUERALL  TOTAL  PRESSURE  RATIO-3. 0618 

OUERALL  TOTAL  TEMPERATURE  RATIO-1.4244 

OUERALL  ADIABATIC  EFFICIENCV-  .8805 

OUERALL  TEMPERATURE  RISE  OF  CAS  PHASE-  220. 15S 
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